From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 23 May 2004 05:03:03 +0000 (+0000)
Subject: r9437: avoid unnecessary casting
X-Git-Tag: v3.8.6~406
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=5795e5a63efa9eda2e361187ab0112ea4542d5cf

r9437: avoid unnecessary casting
---

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.