r10812: 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

diff --git a/BUGS b/BUGS
index 2f967682a7a08bc5564c4020190b2e913fe09a14..80b9dd130415553fc071eb9db05ec976dc04976c 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.
 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.

diff --git a/ChangeLog b/ChangeLog
index 87a47a9bce6802469b214bed7eae7a45bd056f96..da2f739c085449bb51e5babefd7c2bee1e7b96ae 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
 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

diff --git a/db-odbc/odbc-sql.lisp b/db-odbc/odbc-sql.lisp
index c28e937860d50e6d3362a108d92da1282114e292..1f00008493be1d9ccaf7375c70f6cfd977bc3895 100644 (file)
--- a/db-odbc/odbc-sql.lisp
+++ b/db-odbc/odbc-sql.lisp
@@ -3,7 +3,7 @@
 ;;;; FILE IDENTIFICATION
 ;;;;
 ;;;; Name:          odbc-sql.cl
 ;;;; 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
 ;;;;
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;

diff --git a/sql/time.lisp b/sql/time.lisp
index 95a7a683de6d7caa9bb0a154493419ab8b64dcfd..ea5667fe785b03b51abd4d8c9bc3d87a9f33b2d6 100644 (file)
--- a/sql/time.lisp
+++ b/sql/time.lisp
@@ -1060,9 +1060,8 @@ with the given options"
                         (* 60 minute)
                         (* 60 60 hour))))
                1000000)
                         (* 60 minute)
                         (* 60 60 hour))))
                1000000)

-      (declare (ignore sec-new))

       (multiple-value-bind (mjd-new 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)
         (if destructive
             (progn
               (setf (time-mjd date) (+ mjd mjd-new day)