From 7a4858c944c2361dce485a69b66dcf1ad4dcad60 Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Wed, 3 Mar 2010 16:43:44 -0500 Subject: [PATCH] This function now takes an encoding argument, pass what we have along --- db-oracle/oracle-sql.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.34.1