X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/aadaf8fb0d034374e4d4ad253bc37608c13c96e3..61308fc461733d234c0f09a0bf9f4edcd5e2f314:/gffi/proxy.lisp diff --git a/gffi/proxy.lisp b/gffi/proxy.lisp index 4173a1c..d67ee96 100644 --- a/gffi/proxy.lisp +++ b/gffi/proxy.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: proxy.lisp,v 1.6 2007-01-12 10:26:44 espen Exp $ +;; $Id: proxy.lisp,v 1.7 2007-04-06 14:29:42 espen Exp $ (in-package "GFFI") @@ -87,7 +87,7 @@ (defun list-invalidated-instances () (defvar *foreign-instance-locations* (make-hash-table #+clisp :weak #+sbcl :weakness :key)) -;; TODO: add a ref-counted-proxy subclass + (eval-when (:compile-toplevel :load-toplevel :execute) (defclass proxy (virtual-slots-object) (#?-(or (sbcl>= 0 9 17) (featurep :clisp))(%location :special t :type pointer))