projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refactored find-all and build-object to be more readable, shorter and
[clsql.git]
/
db-oracle
/
oracle-sql.lisp
diff --git
a/db-oracle/oracle-sql.lisp
b/db-oracle/oracle-sql.lisp
index 7aa40e7e80f0b9720c549bb02a055049ffd6f386..f8f5836fab84ba29182f2aa6a0667191f3ad5c0b 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)))
@@
-514,7
+514,7
@@
the length of that format.")
(oci-stmt-prepare (deref-vp stmthp)
(deref-vp errhp)
c-stmt-string
(oci-stmt-prepare (deref-vp stmthp)
(deref-vp errhp)
c-stmt-string
- (
length sql
-stmt-string)
+ (
uffi:foreign-string-length c-
-stmt-string)
+oci-ntv-syntax+ +oci-default+ :database db)
(oci-attr-get (deref-vp stmthp)
+oci-htype-stmt+
+oci-ntv-syntax+ +oci-default+ :database db)
(oci-attr-get (deref-vp stmthp)
+oci-htype-stmt+