X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Ftime.lisp;h=ea5667fe785b03b51abd4d8c9bc3d87a9f33b2d6;hb=11261eca2090842638d1b3b7c12b7cc1f6d58f09;hp=95a7a683de6d7caa9bb0a154493419ab8b64dcfd;hpb=e11daa653dbf4bdb74068995b79c22ad42325aa5;p=clsql.git

diff --git a/sql/time.lisp b/sql/time.lisp
index 95a7a68..ea5667f 100644
--- a/sql/time.lisp
+++ b/sql/time.lisp
@@ -1060,9 +1060,8 @@ with the given options"
                         (* 60 minute)
                         (* 60 60 hour))))
                1000000)
-      (declare (ignore sec-new))
       (multiple-value-bind (mjd-new sec-new)
-          (floor sec (* 60 60 24))
+          (floor sec-new (* 60 60 24))
         (if destructive
             (progn
               (setf (time-mjd date) (+ mjd mjd-new day)