From c83595ccc398cd165a6c8dfa2344506e19dafbcd Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 20 Feb 2008 19:11:42 +0100 Subject: Assign the metaclasses of metaclasses correctly. darcs-hash:e393681b86a1b90b8023281fea1cff5b8fa33a44 --- Lisp/libobjcl.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index e6b1b9a..f13d298 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -419,8 +419,7 @@ conventional case for namespace identifiers in Objective-C." ;; our own, which will always get us the root metaclass. (metaclass (if non-meta-superclass - (if (typep (class-of superclass) - 'objective-c-meta-class) + (if (metaclass-fake-p (class-of superclass)) superclass (class-of superclass)) (let ((fake-metaclass-name @@ -429,7 +428,8 @@ conventional case for namespace identifiers in Objective-C." (c2mop:ensure-class fake-metaclass-name :metaclass 'objective-c-meta-class :pointer class-ptr - :direct-superclasses (list superclass))))))) + :direct-superclasses (list superclass) + :fake-p t)))))) (or (find-class class-name nil) (c2mop:ensure-class class-name :metaclass metaclass -- cgit v1.2.3