From 26cfa48009c72652e0ba8ce9aed8c53216e9a3d3 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 7 Nov 2005 17:57:29 +0000 Subject: [PATCH 1/1] r10812: 7 Nov 2005 Kevin Rosenberg * src/time.lisp: Apply patch from Aleksandar Bakic for ROLL function. * BUGS: Added report for update-object-joins by Aleksandar Bakic --- BUGS | 6 ++++++ ChangeLog | 5 +++++ db-odbc/odbc-sql.lisp | 2 +- sql/time.lisp | 3 +-- 4 files changed, 13 insertions(+), 3 deletions(-) diff --git a/BUGS b/BUGS index 2f96768..80b9dd1 100644 --- 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. diff --git a/ChangeLog b/ChangeLog index 87a47a9..da2f739 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +7 Nov 2005 Kevin Rosenberg + * 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 * 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 c28e937..1f00008 100644 --- a/db-odbc/odbc-sql.lisp +++ b/db-odbc/odbc-sql.lisp @@ -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 ;;;; diff --git a/sql/time.lisp b/sql/time.lisp index 95a7a68..ea5667f 100644 --- a/sql/time.lisp +++ b/sql/time.lisp @@ -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) -- 2.34.1