r9023: 2.7.1

diff --git a/ChangeLog b/ChangeLog
index 7e54e17940f792058503e7da22d53619bd4a0ad5..95afac791c06754db07c8f4acc082c22ffb265c7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+15 Apr 2004 Kevin Rosenberg (kevin@rosenberg.net)
+       * Version 2.7.1: Fix for new ODBC backend.
+       clsql-odbc now works on SBCL, CMUCL, OpenMCL
+       in addition to AllegroCL and Lispworks.
+
 15 Apr 2004 Kevin Rosenberg (kevin@rosenberg.net)
        * Version 2.7.0: New backend: ODBC. Tests as
        well as AODBC backend on Allegro,Lispworks.

diff --git a/db-odbc/odbc-api.lisp b/db-odbc/odbc-api.lisp
index 38877a7c112ffadd254ea91d09f10b6c8fcbaf3e..1d82470d62e350efc919867bf09c8418f47dd75b 100644 (file)
--- a/db-odbc/odbc-api.lisp
+++ b/db-odbc/odbc-api.lisp
@@ -64,7 +64,6 @@ as possible second argument) to the desired representation of date/time/timestam
                #.$SQL_MAX_MESSAGE_LENGTH msg-length)
       (let ((err (convert-from-foreign-string error-message))
            (state (convert-from-foreign-string sql-state)))
-       
        (free-foreign-object error-message)
        (free-foreign-object sql-state)
        (values

diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp
index 853d3fbca1fad267b7fa88ecec5fb773aefbf3ed..9ebbaad5bb1499bb03ebbc0c89cff882734c1405 100644 (file)
--- a/db-odbc/odbc-dbi.lisp
+++ b/db-odbc/odbc-dbi.lisp
@@ -428,8 +428,9 @@ This makes the functions db-execute-command and db-query thread safe."
         (dotimes (col-nr count)
           (let ((data-ptr (aref column-data-ptrs col-nr))
                 (out-len-ptr (aref column-out-len-ptrs col-nr)))
-            (when data-ptr (uffi:free-foreign-object data-ptr)) ; we *did* allocate them
-            (when out-len-ptr (uffi:free-foreign-object out-len-ptr)))))
+           ;; free-statment unbind frees theses
+           #+ignore (when data-ptr (uffi:free-foreign-object data-ptr))
+           #+ignore (when out-len-ptr (uffi:free-foreign-object out-len-ptr)))))
       (cond ((null hstmt)
              nil)
             (drop-p

diff --git a/debian/changelog b/debian/changelog
index fe9c67bdd1c70b794524d5779b881f8e868ceae2..7a275a796bce1a32e0e84b548f51821a81138d84 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,4 +1,4 @@
-cl-sql (2.7.0-1) unstable; urgency=low
+cl-sql (2.7.1-1) unstable; urgency=low
 
   * New upstream