From: Kevin M. Rosenberg Date: Wed, 18 May 2005 07:25:56 +0000 (+0000) Subject: r10546: 18 May 2005 Kevin Rosenberg X-Git-Tag: v3.8.6~148 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=0e0e260d3c6a995e46336c0b9b08ef19d941bb8b r10546: 18 May 2005 Kevin Rosenberg * Version 3.1.15 * sql/time.lisp: Fix bug in roll that caused failure in test suite --- 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