From 2a0e0fdaa59c9b431bad7ef35cab891f831a9d3b Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Sat, 7 Mar 2009 13:33:09 -0700 Subject: [PATCH] update oracle/ffi backend. close debian bug --- ChangeLog | 4 ++++ db-oracle/oracle-sql.lisp | 6 +++--- debian/changelog | 7 +++++++ sql/expressions.lisp | 2 +- 4 files changed, 15 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index f11778a..92444cc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +25 Feb 2008 Kevin Rosenberg + * Version 4.0.4 + * sql/expressions.lisp: Remove stray form (thanks to Samuel Ward) + 12 Dec 2007 Kevin Rosenberg * sql/expressions.lisp: Bind *in-subselect* when outputting selections (patch from unknown source). diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp index 87d1137..b0f5457 100644 --- a/db-oracle/oracle-sql.lisp +++ b/db-oracle/oracle-sql.lisp @@ -366,9 +366,9 @@ the length of that format.") ;; STREAM which has no more data, and QC is not a STREAM, we signal ;; DBI-ERROR instead. -(uffi:def-type short-array (:array :short nil)) -(uffi:def-type int-array (:array :int nil)) -(uffi:def-type double-array (:array :double nil)) +(uffi:def-type short-array (* :short)) +(uffi:def-type int-array (* :int)) +(uffi:def-type double-array (* :double)) (uffi:def-type int-pointer (* :int)) (uffi:def-type double-pointer (* :double)) diff --git a/debian/changelog b/debian/changelog index 4bb803e..e22423c 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +cl-sql (4.0.4-1) unstable; urgency=low + + * Update Oracle FFI based on changes in CLSQL. Thanks to Paul + Metcalfe, Liam Healy, and Alan Salewski (closes:481029) + + -- Kevin M. Rosenberg Sat, 07 Mar 2009 13:32:00 -0700 + cl-sql (4.0.3-1) unstable; urgency=low * New upstream diff --git a/sql/expressions.lisp b/sql/expressions.lisp index 6aaeded..746ed00 100644 --- a/sql/expressions.lisp +++ b/sql/expressions.lisp @@ -114,7 +114,7 @@ (write-string (etypecase name (string name) - (symbol (symbol-name name) database)) + (symbol (symbol-name name))) *sql-stream*)) t) -- 2.34.1