From af6f86714c42fb34e4d914136cf18f336fc2460e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 15 Apr 2004 23:12:44 +0000 Subject: [PATCH] r9023: 2.7.1 --- ChangeLog | 5 +++++ db-odbc/odbc-api.lisp | 1 - db-odbc/odbc-dbi.lisp | 5 +++-- debian/changelog | 2 +- 4 files changed, 9 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7e54e17..95afac7 100644 --- 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 38877a7..1d82470 100644 --- 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 853d3fb..9ebbaad 100644 --- 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 fe9c67b..7a275a7 100644 --- 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 -- 2.34.1