projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11060: fix loop error on clisp. RESULT-SET should be T at start of loop to avoid...
[clsql.git]
/
db-oracle
/
oracle-sql.lisp
diff --git
a/db-oracle/oracle-sql.lisp
b/db-oracle/oracle-sql.lisp
index aa7c6d79e0ad70f3b604a57356b47c8144e46839..fc3188f8b33a4e510c916e0b87ac8baa27f61317 100644
(file)
--- a/
db-oracle/oracle-sql.lisp
+++ b/
db-oracle/oracle-sql.lisp
@@
-37,11
+37,11
@@
likely that we'll have to worry about the CMUCL limit."))
(defmacro deref-vp (foreign-object)
`(the vp-type (uffi:deref-pointer (the vpp-type ,foreign-object) :pointer-void)))
(defmacro deref-vp (foreign-object)
`(the vp-type (uffi:deref-pointer (the vpp-type ,foreign-object) :pointer-void)))
-(
def
var +unsigned-char-null-pointer+
+(
uffi:def-pointer-
var +unsigned-char-null-pointer+
(uffi:make-null-pointer :unsigned-char))
(uffi:make-null-pointer :unsigned-char))
-(
def
var +unsigned-short-null-pointer+
+(
uffi:def-pointer-
var +unsigned-short-null-pointer+
(uffi:make-null-pointer :unsigned-short))
(uffi:make-null-pointer :unsigned-short))
-(
def
var +unsigned-int-null-pointer+
+(
uffi:def-pointer-
var +unsigned-int-null-pointer+
(uffi:make-null-pointer :unsigned-int))
;; constants - from OCI?
(uffi:make-null-pointer :unsigned-int))
;; constants - from OCI?