r10547: fix warning

diff --git a/sql/time.lisp b/sql/time.lisp
index 078e4aa5c39efe888bbfa539c3dc2afb46042d68..c767018285e4e38b34361de77a0464ba4a778c01 100644 (file)
--- a/sql/time.lisp
+++ b/sql/time.lisp
@@ -945,6 +945,7 @@ with the given options"
                         (* 60 minute)
                         (* 60 60 hour))))
                1000000)
                         (* 60 minute)
                         (* 60 60 hour))))
                1000000)

+      (declare (ignore sec-new))

       (multiple-value-bind (mjd-new sec-new)
           (floor sec (* 60 60 24))
         (if destructive
       (multiple-value-bind (mjd-new sec-new)
           (floor sec (* 60 60 24))
         (if destructive