X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-oracle%2Foracle-sql.lisp;h=f4eb28376ffed8801178ecf4587ddf0e0ee1a184;hb=5795e5a63efa9eda2e361187ab0112ea4542d5cf;hp=79ba68e4bb30e20d71621266aca2c10103711550;hpb=760cf506d0395b2140f9c83c2f3d00a147262bf9;p=clsql.git

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 79ba68e..f4eb283 100644
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -204,7 +204,7 @@ the length of that format.")
 (uffi:def-type string-array (:array :unsigned-char))
 
 (defun deref-oci-string (arrayptr string-index size)
-  (declare (type string-array arrayptr))
+;;  (declare (type string-array arrayptr))
   (declare (type (mod #.+n-buf-rows+) string-index))
   (declare (type (and unsigned-byte fixnum) size))
   (let* ((raw (uffi:convert-from-foreign-string 
@@ -414,7 +414,7 @@ the length of that format.")
 		    (value
 		     (let* ((arb (foreign-resource-buffer (cd-indicators cd)))
 			    (indicator (uffi:deref-array arb '(:array :short) irow)))
-		       (declare (type short-array arb))
+		       ;; b(declare (type short-array arb))
 		       (unless (= indicator -1)
 			 (ecase (cd-oci-data-type cd)
 			   (#.SQLT-STR  
@@ -703,15 +703,12 @@ the length of that format.")
 				 defnp
 				 (deref-vp errhp)
 				 (1+ icolumn) ; OCI 1-based indexing again
-				 (uffi:with-cast-pointer (vp (foreign-resource-buffer buffer) :void)
-				   vp)
+				 (foreign-resource-buffer buffer)
 				 sizeof
 				 dtype
-				 (uffi:with-cast-pointer (vp (foreign-resource-buffer indicators) :void)
-				   vp)
+				 (foreign-resource-buffer indicators)
 				 (uffi:make-null-pointer :unsigned-short)
-				 (uffi:with-cast-pointer (vp (foreign-resource-buffer retcodes) :unsigned-short)
-				   vp)
+				 (foreign-resource-buffer retcodes)
 				 +oci-default+))))))))
   
 ;; Release the resources associated with a QUERY-CURSOR.