(let ((mjd (time-mjd date))
(sec (time-second date))
(usec (time-usec date)))
- (multiple-value-bind (usec-new sec)
+ (multiple-value-bind (sec-new usec-new)
(floor (+ usec
(* 1000000
(+ sec second
(* 60 minute)
(* 60 60 hour))))
1000000)
+ (declare (ignore sec-new))
(multiple-value-bind (mjd-new sec-new)
(floor sec (* 60 60 24))
(if destructive
(defun syntax-parse-iso-8601 (string)
;; use strlen to determine if fractional seconds are present in timestamp
(let ((strlen (length string))
- year month day hour minute second gmt-sec-offset)
+ year month day hour minute second usec gmt-sec-offset)
(handler-case
(progn
(setf year (parse-integer string :start 0 :end 4)