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

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)