(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*)
(defmacro acquire-foreign-resource (type &optional size)
`(let ((res (%get-resource ,type ,size)))
(defmacro acquire-foreign-resource (type &optional size)
`(let ((res (%get-resource ,type ,size)))