From 9cddfd4497f9e16decadabbc38873d2f710c24cd Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 17 Feb 2008 14:31:58 +0100 Subject: Put user-defined classes into the NS namespace. darcs-hash:b5f9b1fba72102c0979b1f31985c557338560263 --- Lisp/class-definition.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'Lisp') 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) -- cgit v1.2.3