From eb9a722a75c7315da50844444717e2dcf6f069e4 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 4 Dec 2008 21:12:35 +0100 Subject: Automatically register Objective-C classes used as superclasses. darcs-hash:928ea318abd6914917d42d77c8581dd4c3ee67d7 --- Lisp/libobjcl.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 939f3b3..b5c6f27 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -346,7 +346,10 @@ conventional case for namespace identifiers in Objective-C." ;; the way as well. (let ((class-name (objc-class-name->symbol class-name-string)) (class-ptr (%objcl-find-class class-name-string))) - (or (find-class class-name nil) + (or (let ((lisp-class (find-class class-name nil))) + ;; FORWARD-REFERENCED-CLASSes aren't what we want! + (and (typep lisp-class 'objective-c-class) + lisp-class)) (if (objc-pointer-null class-ptr) nil (let ((superclass (let ((potential-superclass -- cgit v1.2.3