X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-oracle%2Foracle-sql.lisp;h=3f5cb4961b25f6e36981e5349387f72918f84460;hp=aa7c6d79e0ad70f3b604a57356b47c8144e46839;hb=ab37892bfa71e0d66021cc73f28cd189be30c81c;hpb=6b34e2293a52b03e8611c85e4e53a0ab5c8a3c1a

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index aa7c6d7..3f5cb49 100644
--- 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)))
 
-(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?
@@ -643,7 +643,6 @@ the length of that format.")
 				(colname '(* :unsigned-char))
 				(colnamelen 'ub4)
 				(colsize 'ub2)
-				(colsizesize 'ub4)
 				(defnp ':pointer-void))
       (let ((buffer nil)
 	    (sizeof nil))