(defmacro with-foreign-object ((var type) &rest body)
#-(or cmu lispworks) ; default version
`(let ((,var (allocate-foreign-object ,type)))
(defmacro with-foreign-object ((var type) &rest body)
#-(or cmu lispworks) ; default version
`(let ((,var (allocate-foreign-object ,type)))