From 5795e5a63efa9eda2e361187ab0112ea4542d5cf Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 23 May 2004 05:03:03 +0000 Subject: [PATCH] r9437: avoid unnecessary casting --- db-oracle/oracle-sql.lisp | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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. -- 2.34.1