From c61f86dce1eb244fb775e74043070e32e6fdcaaf Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sat, 16 Feb 2008 21:58:48 +0100 Subject: Add module: instance-management. darcs-hash:79549f0b837006321061a524ad376df397a9ab5a --- Lisp/memory-management.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Lisp/memory-management.lisp') diff --git a/Lisp/memory-management.lisp b/Lisp/memory-management.lisp index 3d4685d..b625b8f 100644 --- a/Lisp/memory-management.lisp +++ b/Lisp/memory-management.lisp @@ -37,7 +37,10 @@ (find-objc-meta-class-by-name (%objcl-class-name pointer)))) ((%objcl-object-is-class pointer) (return-from intern-pointer-wrapper - (find-objc-class-by-name (%objcl-class-name pointer)))))) + (find-objc-class-by-name (%objcl-class-name pointer)))) + ((objcl-object-backed-by-lisp-class-p/pointer pointer) + (return-from intern-pointer-wrapper + (apply #'intern-lisp-managed-foreign-instance initargs))))) (let* ((hash-table (ecase class ((id) *id-objects*) ((exception) *exception-objects*) -- cgit v1.2.3