X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftime.lisp;fp=sql%2Ftime.lisp;h=554bc17984fa5c1931706b632eb8eaf8dcb3b079;hp=7024fe31c13e4c61010e54f8acec7482cc493ad2;hb=6a86cd362b2b952c9a819dea1df43efd3fd8bab3;hpb=d3e3f05f8b8e58e597f70a105da9355548e13ed5

diff --git a/sql/time.lisp b/sql/time.lisp
index 7024fe3..554bc17 100644
--- a/sql/time.lisp
+++ b/sql/time.lisp
@@ -1071,10 +1071,9 @@ with the given options"
              (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)