From 0e0e260d3c6a995e46336c0b9b08ef19d941bb8b Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 18 May 2005 07:25:56 +0000 Subject: [PATCH] r10546: 18 May 2005 Kevin Rosenberg * Version 3.1.15 * sql/time.lisp: Fix bug in roll that caused failure in test suite --- ChangeLog | 4 ++++ debian/changelog | 6 ++++++ sql/time.lisp | 2 +- 3 files changed, 11 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index d62aa4e..e59cd8e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +18 May 2005 Kevin Rosenberg + * Version 3.1.15 + * sql/time.lisp: Fix bug in roll that caused failure in test suite + 17 May 2005 Kevin Rosenberg * Version 3.1.14 * sql/oodml.lisp: Properly handle when db-writer is NIL diff --git a/debian/changelog b/debian/changelog index e1d9d69..957ce54 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (3.1.15-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg 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 8cc7724..078e4aa 100644 --- 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 -- 2.34.1