X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftime.lisp;h=c767018285e4e38b34361de77a0464ba4a778c01;hp=d97673310eb341a2a6bcefca859cfe8a3f5e872e;hb=18e34efea688a6758b6e997401fbc3f241da98f3;hpb=748f18aeaee5e0512317657a86f7a019f06e12de

diff --git a/sql/time.lisp b/sql/time.lisp
index d976733..c767018 100644
--- a/sql/time.lisp
+++ b/sql/time.lisp
@@ -938,13 +938,14 @@ with the given options"
   (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
@@ -1129,7 +1130,7 @@ formatted date string."
 (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)