From: Nathan Bird <nathan@acceleration.net>
Date: Wed, 3 Mar 2010 21:43:44 +0000 (-0500)
Subject: This function now takes an encoding argument, pass what we have along
X-Git-Tag: v5.0.5~3
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=7a4858c944c2361dce485a69b66dcf1ad4dcad60

This function now takes an encoding argument, pass what we have along
---

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 7aa40e7..a58c843 100644
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -430,7 +430,7 @@ the length of that format.")
                        (unless (= indicator -1)
                          (ecase (cd-oci-data-type cd)
                            (#.SQLT-STR
-                            (deref-oci-string b irow (cd-sizeof cd)))
+                            (deref-oci-string b irow (cd-sizeof cd) encoding))
                            (#.SQLT-FLT
                             (locally
                                 (declare (type double-array b))
@@ -442,7 +442,7 @@ the length of that format.")
                                    (declare (type int-array b))
                                  (uffi:deref-array b '(:array :int) irow)))))
                            (#.SQLT-DATE
-                            (deref-oci-string b irow (cd-sizeof cd))))))))
+                            (deref-oci-string b irow (cd-sizeof cd) encoding)))))))
                (when (and (eq :string (cd-result-type cd))
                           value
                           (not (stringp value)))