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

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 3598dc9..f4eb283 100644
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -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.