From 9cddfd4497f9e16decadabbc38873d2f710c24cd Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
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(-)
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