projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9408: 19 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
[clsql.git]
/
db-oracle
/
oracle-api.lisp
diff --git
a/db-oracle/oracle-api.lisp
b/db-oracle/oracle-api.lisp
index dbbc5dccf4bd49890850b98c0a85f068c0a0b7c8..ff24e2d02d502e677b9b6fd50c352b57eb454ff4 100644
(file)
--- a/
db-oracle/oracle-api.lisp
+++ b/
db-oracle/oracle-api.lisp
@@
-30,7
+30,7
@@
(defvar +null-void-pointer+ (uffi:make-null-pointer :void))
(defvar +null-void-pointer+ (uffi:make-null-pointer :void))
-(defvar +null-void-pointer-pointer+ (uffi:make-null-pointer
'
:pointer-void))
+(defvar +null-void-pointer-pointer+ (uffi:make-null-pointer :pointer-void))
;;; Check an OCI return code for erroricity and signal a reasonably
;;; informative condition if so.
;;; Check an OCI return code for erroricity and signal a reasonably
;;; informative condition if so.
@@
-261,11
+261,9
@@
(hndltype :short))
(hndltype :short))
-#+nil
-(progn
-;;; Low-level functions which don't use return checking
-;;;
-;;; KMR: These are currently unused by the backend
+
+;;; Low-level routines that don't do error checking. They are used
+;;; for setting up global environment.
(uffi:def-function "OCIInitialize"
((mode :unsigned-long) ; ub4
(uffi:def-function "OCIInitialize"
((mode :unsigned-long) ; ub4
@@
-282,9
+280,6
@@
(usermempp (* :pointer-void)))
:returning :int)
(usermempp (* :pointer-void)))
:returning :int)
-(def-oci-routine ("OCIHandleAlloc" oci-handle-alloc)
- :int
-)
(uffi:def-function "OCIHandleAlloc"
((parenth :pointer-void) ; const dvoid *
(uffi:def-function "OCIHandleAlloc"
((parenth :pointer-void) ; const dvoid *