summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-17 14:31:58 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-17 14:31:58 +0100
commit9cddfd4497f9e16decadabbc38873d2f710c24cd (patch)
tree72068dc5fdd985591a9a8f011796b7aef4af0b96 /Lisp
parent036cb6007d026ef5c58fa5bdfc9efb89fb092c09 (diff)
Put user-defined classes into the NS namespace.
darcs-hash:b5f9b1fba72102c0979b1f31985c557338560263
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/class-definition.lisp8
1 files changed, 6 insertions, 2 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index 3eb10ee..c09c7be 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -248,14 +248,18 @@
:direct-superclasses (list (class-of superclass))
:new-foreign-class-p t))
(class
- (ensure-class name
+ (ensure-class (intern (symbol-name name) '#:objective-c-classes)
:metaclass metaclass
:pointer new-class-pointer
:direct-slots direct-slots
:direct-superclasses direct-superclasses
:direct-default-initargs direct-default-initargs
:new-foreign-class-p t)))
- class))
+ (unless (eq (intern (symbol-name name) '#:objective-c-classes) name)
+ (setf (find-class name) class)
+ (setf (find-class (intern (symbol-name (class-name metaclass))))
+ metaclass)
+ class)))
(defmethod make-instance ((class objective-c-meta-class)