projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Modify operation-done-p for new ASDF
[clsql.git]
/
db-oracle
/
oracle-sql.lisp
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)))