projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
03f9b6f
)
This function now takes an encoding argument, pass what we have along
author
Nathan Bird
<nathan@acceleration.net>
Wed, 3 Mar 2010 21:43:44 +0000
(16:43 -0500)
committer
Nathan Bird
<nathan@acceleration.net>
Wed, 3 Mar 2010 21:43:44 +0000
(16:43 -0500)
db-oracle/oracle-sql.lisp
patch
|
blob
|
history
diff --git
a/db-oracle/oracle-sql.lisp
b/db-oracle/oracle-sql.lisp
index 7aa40e7e80f0b9720c549bb02a055049ffd6f386..a58c8431e61548b8fdd2fb884952d924908d2786 100644
(file)
--- 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
(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))
(#.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
(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)))
(when (and (eq :string (cd-result-type cd))
value
(not (stringp value)))