08 May 2006 Kevin Rosenberg <kevin@rosenberg.net>
- * sql/metaclasses.lisp: Patch from James Bielman for
+ * Version: 3.6.0 (requires UFFI v1.5.11 or greater)
+ * db-oracle/metaclasses.lisp: Patch from James Bielman for
checking slot constraints.
+ * db-oracle/oracle-{api,sql}.lisp: Avoid dead pointers on loading
+ saved openmcl images (based on patch from James Bielman)
06 May 2006 Kevin Rosenberg <kevin@rosenberg.net>
* doc/ref-fdml.xml: Documentation patch from Marcus Pearce for limit keyword
(uffi:def-foreign-type oci-svc-ctx :pointer-void)
(uffi:def-foreign-type oci-stmt :pointer-void)
-
-(defvar +null-void-pointer+ (uffi:make-null-pointer :void))
-(defvar +null-void-pointer-pointer+ (uffi:make-null-pointer :pointer-void))
+(uffi:def-pointer-var +null-void-pointer+
+ (uffi:make-null-pointer :void))
+(uffi:def-pointer-var +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.
(if (= result #.+oci-success+)
+oci-success+
(handle-oci-result result database nulls-ok)))))))
-
+
(defmacro def-raw-oci-routine
((c-oci-symbol lisp-oci-fn) c-return &rest c-parms)
(mode ub4) ; ub4
(xtramem-sz size_t) ; size_t
(usermempp (* :pointer-void))) ; dvoid **
-
+
#-oci7
(def-oci-routine ("OCIEnvCreate" oci-env-create)
:int
(position ub4)
(valuep :pointer-void)
(value_sz sb4)
- (dty ub2)
+ (dty ub2)
(indp (* sb2))
- (rlenp (* ub2))
- (rcodep (* ub2))
+ (rlenp (* ub2))
+ (rcodep (* ub2))
(mode ub4))
(def-oci-routine ("OCIStmtFetch" oci-stmt-fetch)
:returning :int)
-(uffi:def-function "OCIHandleAlloc"
+(uffi:def-function "OCIHandleAlloc"
((parenth :pointer-void) ; const dvoid *
(hndlpp (* :pointer-void)) ; dvoid **
(type ub4) ; ub4
(defmacro deref-vp (foreign-object)
`(the vp-type (uffi:deref-pointer (the vpp-type ,foreign-object) :pointer-void)))
-(defvar +unsigned-char-null-pointer+
+(uffi:def-pointer-var +unsigned-char-null-pointer+
(uffi:make-null-pointer :unsigned-char))
-(defvar +unsigned-short-null-pointer+
+(uffi:def-pointer-var +unsigned-short-null-pointer+
(uffi:make-null-pointer :unsigned-short))
-(defvar +unsigned-int-null-pointer+
+(uffi:def-pointer-var +unsigned-int-null-pointer+
(uffi:make-null-pointer :unsigned-int))
;; constants - from OCI?
+cl-sql (3.6.0-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Tue, 9 May 2006 09:41:58 -0600
+
cl-sql (3.5.7-1) unstable; urgency=low
* New upstream
Package: cl-sql-uffi
Architecture: any
-Depends: cl-uffi, cl-sql (>= ${Source-Version}), ${shlibs:Depends}
+Depends: cl-uffi (>= 1.5.11), cl-sql (>= ${Source-Version}), ${shlibs:Depends}
Recommends: cl-sql-backend
Description: Common UFFI functions for CLSQL database backends
This package provides an interface to several UFFI functions used by multiple