From 706c29aa55b25e5b7c7f90460589a4702b1390e7 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 18 May 2005 07:27:50 +0000
Subject: [PATCH] r10547: fix warning

---
 sql/time.lisp | 1 +
 1 file changed, 1 insertion(+)

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
-- 
2.34.1