projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9508: condition fixes
[clsql.git]
/
db-oracle
/
oracle-sql.lisp
diff --git
a/db-oracle/oracle-sql.lisp
b/db-oracle/oracle-sql.lisp
index 119a669f6db1c744dc282e96195c74ad884eb757..222e030c9b41881c05edfb5276d0327044a8a3f8 100644
(file)
--- a/
db-oracle/oracle-sql.lisp
+++ b/
db-oracle/oracle-sql.lisp
@@
-397,11
+397,7
@@
the length of that format.")
(#.SQLT-INT
(ecase (cd-sizeof cd)
(4
(#.SQLT-INT
(ecase (cd-sizeof cd)
(4
- (uffi:deref-array b '(:array :int) irow))
- (8
- (deref-oci-int64 b irow))
- (16
- (deref-oci-int128 b irow))))
+ (uffi:deref-array b '(:array :int) irow))))
(#.SQLT-DATE
(deref-oci-string b irow (cd-sizeof cd))))))))
(when (and (eq :string (cd-result-type cd))
(#.SQLT-DATE
(deref-oci-string b irow (cd-sizeof cd))))))))
(when (and (eq :string (cd-result-type cd))