projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
981c14d
)
r9437: avoid unnecessary casting
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 23 May 2004 05:03:03 +0000
(
05:03
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 23 May 2004 05:03:03 +0000
(
05:03
+0000)
db-oracle/oracle-sql.lisp
patch
|
blob
|
history
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
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
sizeof
dtype
- (uffi:with-cast-pointer (vp (foreign-resource-buffer indicators) :void)
- vp)
+ (foreign-resource-buffer indicators)
(uffi:make-null-pointer :unsigned-short)
(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.
+oci-default+))))))))
;; Release the resources associated with a QUERY-CURSOR.