r9437: avoid unnecessary casting

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 3598dc93f628953edad15e9c753d83d6eaa5dd16..f4eb28376ffed8801178ecf4587ddf0e0ee1a184 100644 (file)
--- 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.