r10546: 18 May 2005 Kevin Rosenberg <kevin@rosenberg.net>

        * Version 3.1.15
        * sql/time.lisp: Fix bug in roll that caused failure in test suite

diff --git a/ChangeLog b/ChangeLog
index d62aa4e485857e4e2afb6348013a8f0a911e4487..e59cd8ee445774969b050e662d2617af1bc0f488 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+18 May 2005 Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 3.1.15
+       * sql/time.lisp: Fix bug in roll that caused failure in test suite
+
 17 May 2005 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.1.14
        * sql/oodml.lisp: Properly handle when db-writer is NIL

diff --git a/debian/changelog b/debian/changelog
index e1d9d69b2ca0a50a9820de4c1a7e87cfa74298fa..957ce540b29a0e02db05769f044022c80d5c88a0 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (3.1.15-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Wed, 18 May 2005 01:25:33 -0600
+
 cl-sql (3.1.14-1) unstable; urgency=low
 
   * New upstream

diff --git a/sql/time.lisp b/sql/time.lisp
index 8cc77241b14ac8a2c31b6a06e43854799c270484..078e4aa5c39efe888bbfa539c3dc2afb46042d68 100644 (file)
--- a/sql/time.lisp
+++ b/sql/time.lisp
@@ -938,7 +938,7 @@ with the given options"
   (let ((mjd (time-mjd date))
         (sec (time-second date))
         (usec (time-usec date)))
-    (multiple-value-bind (usec-new sec)
+    (multiple-value-bind (sec-new usec-new)
         (floor (+ usec
                   (* 1000000
                      (+ sec second