r10812: 7 Nov 2005 Kevin Rosenberg <kevin@rosenberg.net>
authorKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 7 Nov 2005 17:57:29 +0000 (17:57 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 7 Nov 2005 17:57:29 +0000 (17:57 +0000)
        * src/time.lisp: Apply patch from Aleksandar Bakic for ROLL
        function.
        * BUGS: Added report for update-object-joins by Aleksandar Bakic

BUGS
ChangeLog
db-odbc/odbc-sql.lisp
sql/time.lisp

diff --git a/BUGS b/BUGS
index 2f96768..80b9dd1 100644 (file)
--- a/BUGS
+++ b/BUGS
@@ -7,3 +7,9 @@ handler. When a multithreaded program servicing socket requests has
 SIGPIPE conditions thrown, the running SBCL instance is killed.  The
 web page http://linux.com.hk/docs/postgresql/libpq-threading.html has
 more information about libpq's SIGPIPE handler.
+
+2. Object joining
+
+Aleksandar Bakic reported the documentation says that :home-key and
+:foreign-key properties of the :db-info property may contain lists of
+symbols. However, update-objects-joins fails in such cases.
index 87a47a9..da2f739 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+7 Nov 2005  Kevin Rosenberg <kevin@rosenberg.net>
+       * src/time.lisp: Apply patch from Aleksandar Bakic for ROLL
+       function.
+       * BUGS: Added report for update-object-joins by Aleksandar Bakic
+       
 4 Nov 2005  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.3.4 [UFFI >= 1.5.5 needed]
        * db-odbc/odbc-api.lisp: Apply patch from Yaroslav Kavenchuk
index c28e937..1f00008 100644 (file)
@@ -3,7 +3,7 @@
 ;;;; FILE IDENTIFICATION
 ;;;;
 ;;;; Name:          odbc-sql.cl
-;;;; Purpose:       Low-level interface for CLSQL ODBC backend
+;;;; Purpose:       Medium-level interface for CLSQL ODBC backend
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
index 95a7a68..ea5667f 100644 (file)
@@ -1060,9 +1060,8 @@ 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))
+          (floor sec-new (* 60 60 24))
         (if destructive
             (progn
               (setf (time-mjd date) (+ mjd mjd-new day)