Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Switch to use timestamp> rather than local-time> (and similar), due to

change of implementation in LOCAL-TIME package
  • Loading branch information...
commit f33f1e1a4d138152b6fd74478465a14432ff37cb 1 parent cfc7dbd
Christopher Browne authored
View
4 core/ledger.lisp
@@ -76,10 +76,10 @@
(let (earliest latest)
(iterate ((xact (scan-transactions binder)))
(if (or (null earliest)
- (local-time< (xact-date xact) earliest))
+ (timestamp< (xact-date xact) earliest))
(setf earliest (xact-date xact)))
(if (or (null latest)
- (local-time> (xact-date xact) latest))
+ (timestamp> (xact-date xact) latest))
(setf latest (xact-date xact))))
(time-range :begin earliest :end latest :end-inclusive-p t)))
View
4 core/valexpr.lisp
@@ -416,9 +416,9 @@
(if (char= #\= (peek-char nil in))
(progn
(read-char in)
- (make-comparator function local-time>= value>=
+ (make-comparator function timestamp>= value>=
"'>=' operator not followed by argument"))
- (make-comparator function local-time> value>
+ (make-comparator function timestamp> value>
"'>' operator not followed by argument")))
(t
function))
View
4 transforms/filter.lisp
@@ -117,12 +117,12 @@
(:begin
(or string fixed-time)
,#'(lambda (value)
- (fixed-time-matcher value #'local-time>=)))
+ (fixed-time-matcher value #'timestamp>=)))
(:end
(or string fixed-time)
,#'(lambda (value)
- (fixed-time-matcher value #'local-time<=)))
+ (fixed-time-matcher value #'timestamp<=)))
(:range
(or string time-range) ,#'time-range-matcher)
View
4 transforms/subtotal.lisp
@@ -16,10 +16,10 @@
;; Remember the earliest and latest transactions in the set, so that
;; we can create a meaningful display name for the grouped entry.
(if (or (null earliest-date)
- (local-time< (xact-date xact) earliest-date))
+ (timestamp< (xact-date xact) earliest-date))
(setf earliest-date (xact-date xact)))
(if (or (null latest-date)
- (local-time> (xact-date xact) latest-date))
+ (timestamp> (xact-date xact) latest-date))
(setf latest-date (xact-date xact)))
(account-set-value account
Please sign in to comment.
Something went wrong with that request. Please try again.