r10812: 7 Nov 2005 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / sql / time.lisp

diff --git a/sql/time.lisp b/sql/time.lisp
index 95a7a683de6d7caa9bb0a154493419ab8b64dcfd..ea5667fe785b03b51abd4d8c9bc3d87a9f33b2d6 100644 (file)
--- 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)