;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;;
-;;;; $Id$
-;;;;
;;;; A variety of structures and function for creating and
;;;; manipulating dates, times, durations and intervals for
;;;; CLSQL.
(setf (time-mjd date) (time-mjd new-date))
(setq date new-date))))))
(let ((mjd (time-mjd date))
- (sec (time-second date))
- (usec (time-usec date)))
+ (sec (time-second date)))
(multiple-value-bind (sec-new usec-new)
- (floor (+ usec
+ (floor (+ usec (time-usec date)
(* 1000000
(+ sec second
(* 60 minute)
(index (length string))
(months/minutes nil))
(loop
- (multiple-value-bind (duration next-index duration-type)
+ (multiple-value-bind (duration end next-index duration-type)
(iso-8601-duration-subseq string index)
+ (declare (ignore end))
(case duration-type
(:years
(incf years duration))