From 0667c31269d99a7bec708559d84845a69b32dec3 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 17 Feb 2008 18:09:53 +0100 Subject: Fix INTERN-LISP-MANAGED-FOREIGN-INSTANCE. darcs-hash:952721028097b9740e84d6a6d7a4cf43537a1ef5 --- Lisp/instance-management.lisp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'Lisp') diff --git a/Lisp/instance-management.lisp b/Lisp/instance-management.lisp index ab2e0bb..371e78f 100644 --- a/Lisp/instance-management.lisp +++ b/Lisp/instance-management.lisp @@ -23,11 +23,12 @@ (defun intern-lisp-managed-foreign-instance (&rest initargs &key pointer) (let ((key (cffi:pointer-address pointer))) (or (gethash key *lisp-managed-instances* nil) - (apply #'make-instance - (intern-pointer-wrapper - 'class - :pointer (%objcl-object-get-class pointer)) - initargs)))) + (setf (gethash key *lisp-managed-instances*) + (apply #'make-instance + (intern-pointer-wrapper + 'class + :pointer (%objcl-object-get-class pointer)) + initargs))))) (defun unintern-lisp-managed-foreign-instance (instance) (remhash (cffi:pointer-address (pointer-to instance)) -- cgit v1.2.3