(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.
:int
(srvhp :pointer-void) ; oci-server
(errhp :pointer-void) ; oci-error
- (dblink :cstring) ; :in
+ (dblink :cstring) ; :in
(dblink-len :unsigned-long) ; int
(mode :unsigned-long)) ; int
(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
(usermempp (* :pointer-void)))
:returning :int)
-(def-oci-routine ("OCIHandleAlloc" oci-handle-alloc)
- :int
-)
(uffi:def-function "OCIHandleAlloc"
((parenth :pointer-void) ; const dvoid *