projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9756: add tinyint type
[clsql.git]
/
db-oracle
/
foreign-resources.lisp
diff --git
a/db-oracle/foreign-resources.lisp
b/db-oracle/foreign-resources.lisp
index 8756f5843435842e445fc8456b4247404964bfa9..badfedc732860f48fe636a9941ed98d17d962a62 100644
(file)
--- a/
db-oracle/foreign-resources.lisp
+++ b/
db-oracle/foreign-resources.lisp
@@
-36,13
+36,13
@@
(defun %insert-foreign-resource (type res)
(let ((resource (gethash type *foreign-resource-hash*)))
(setf (gethash type *foreign-resource-hash*)
(defun %insert-foreign-resource (type res)
(let ((resource (gethash type *foreign-resource-hash*)))
(setf (gethash type *foreign-resource-hash*)
- (cons res
(gethash type *foreign-resource-hash*)
))))
+ (cons res
resource
))))
(defmacro acquire-foreign-resource (type &optional size)
(defmacro acquire-foreign-resource (type &optional size)
- `(let ((res (%get-resource
'
,type ,size)))
+ `(let ((res (%get-resource ,type ,size)))
(unless res
(setf res (make-foreign-resource
(unless res
(setf res (make-foreign-resource
- :type
'
,type :sizeof ,size
+ :type ,type :sizeof ,size
:buffer (uffi:allocate-foreign-object ,type ,size)))
(%insert-foreign-resource ',type res))
(claim-foreign-resource res)))
:buffer (uffi:allocate-foreign-object ,type ,size)))
(%insert-foreign-resource ',type res))
(claim-foreign-resource res)))