From 5cd4ba9e9cd3c64dffbbef3b154511eee704ceb0 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 3 Feb 2008 00:18:51 +0100 Subject: Use Objective-C metaclasses as CLOS metaclasses. darcs-hash:dd0a1476e5412105a56b7c7de18f7d14f7af2696 --- Lisp/libobjcl.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 40c41ec..16a300f 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -233,7 +233,9 @@ conventional case for namespace identifiers in Objective-C." (let ((class-name (objc-class-name->symbol class-name-string))) (or (find-class class-name nil) (c2mop:ensure-class class-name - :metaclass 'objective-c-class + :metaclass (class-name + (find-objc-meta-class + class-name-string)) :pointer class-ptr :wrapped-foreign-class class-name-string)))))) @@ -258,7 +260,8 @@ conventional case for namespace identifiers in Objective-C." (or (find-class class-name nil) (c2mop:ensure-class class-name :metaclass 'objective-c-meta-class - :pointer class-ptr)))))) + :pointer class-ptr + :direct-superclasses '(objective-c-class))))))) (defun objc-pointer-null (pointer) -- cgit v1.2.3