From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 18 May 2005 07:27:50 +0000 (+0000)
Subject: r10547: fix warning
X-Git-Tag: v3.8.6~147
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=706c29aa55b25e5b7c7f90460589a4702b1390e7

r10547: fix warning
---

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