diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-17 12:23:07 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-17 12:23:07 +0100 |
| commit | 9518f18560285cbeb66269a0cd88e7ff6146aee9 (patch) | |
| tree | e0edc4a4d1d8763b240bc33c2819dbd50a6363e5 /Lisp/libobjcl.lisp | |
| parent | 620a94200d9d7a33e41afd77c275599feb259ebd (diff) | |
Implement ENSURE-OBJECTIVE-C-CLASS-PAIR.
darcs-hash:ea08a0dcdbed287c1c1e09124a2cb0650a6b52ad
Diffstat (limited to 'Lisp/libobjcl.lisp')
| -rw-r--r-- | Lisp/libobjcl.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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 |