Oracle foreign encoding fix

2011-12-20  Kevin Rosenberg <kevin@rosenberg.net>
* db-oracle/oracle.lisp: Change length function to
uffi:foreign-string-length to handle foreign encodings.

diff --git a/ChangeLog b/ChangeLog
index 02d93ca2f40fc5d7602d9ad684333ceeea2b2077..0dde7a48ba4241188c8aedce3b719103b97c9702 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-20  Kevin Rosenberg <kevin@rosenberg.net>
+       * 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  <russ@acceleration.net>
        * db-odbc/odbc-api.lisp, tests/test-time.lisp
 

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index a58c8431e61548b8fdd2fb884952d924908d2786..7272b1c2273890ecc2e34dd32b2ec381b3c4f8ae 100644 (file)
--- 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 be7a3800300c08c60dc204387901436c1d189a06..a77185ba5b739f7777bb4c325d0669052a8afa98 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (6.1.0-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 19 Dec 2011 10:13:58 -0700
+
 cl-sql (6.0.1-1) unstable; urgency=low
 
   * New upstream