From c5ecb63ab302383d9a95043c0b3e35c1a1b8918e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 19 Dec 2011 10:14:55 -0700 Subject: [PATCH] Oracle foreign encoding fix 2011-12-20 Kevin Rosenberg * db-oracle/oracle.lisp: Change length function to uffi:foreign-string-length to handle foreign encodings. --- ChangeLog | 5 +++++ db-oracle/oracle-sql.lisp | 3 ++- debian/changelog | 6 ++++++ 3 files changed, 13 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 02d93ca..0dde7a4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2011-12-20 Kevin Rosenberg + * db-oracle/oracle.lisp: Change length function to + uffi:foreign-string-length to handle foreign encodings. + Thanks to Elias Martenson. + 2011-11-28 Russ Tyndall * db-odbc/odbc-api.lisp, tests/test-time.lisp diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp index a58c843..7272b1c 100644 --- a/db-oracle/oracle-sql.lisp +++ b/db-oracle/oracle-sql.lisp @@ -514,7 +514,8 @@ the length of that format.") (oci-stmt-prepare (deref-vp stmthp) (deref-vp errhp) c-stmt-string - (length sql-stmt-string) + (uffi:foreign-string-length length + sql-stmt-string) +oci-ntv-syntax+ +oci-default+ :database db) (oci-attr-get (deref-vp stmthp) +oci-htype-stmt+ diff --git a/debian/changelog b/debian/changelog index be7a380..a77185b 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (6.1.0-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Mon, 19 Dec 2011 10:13:58 -0700 + cl-sql (6.0.1-1) unstable; urgency=low * New upstream -- 2.34.1