X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftime.lisp;fp=sql%2Ftime.lisp;h=c767018285e4e38b34361de77a0464ba4a778c01;hp=078e4aa5c39efe888bbfa539c3dc2afb46042d68;hb=706c29aa55b25e5b7c7f90460589a4702b1390e7;hpb=0e0e260d3c6a995e46336c0b9b08ef19d941bb8b

diff --git a/sql/time.lisp b/sql/time.lisp
index 078e4aa..c767018 100644
--- a/sql/time.lisp
+++ b/sql/time.lisp
@@ -945,6 +945,7 @@ 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))
         (if destructive