From 9518f18560285cbeb66269a0cd88e7ff6146aee9 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 17 Feb 2008 12:23:07 +0100 Subject: Implement ENSURE-OBJECTIVE-C-CLASS-PAIR. darcs-hash:ea08a0dcdbed287c1c1e09124a2cb0650a6b52ad --- Lisp/libobjcl.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 2308b60..c4b9d18 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -372,7 +372,7 @@ conventional case for namespace identifiers in Objective-C." (pointer-to (foreign-class-ensure-registered non-meta-superclass)))) - (find-class 'objective-c-class))) + (find-class 'objective-c-meta-class))) ;; If there is no superclass, we are the root metaclass. ;; As we cannot assign ourselves as our own metaclass ;; (which is a pity, because it would be the correct thing -- cgit v1.2.3