From 5cd4ba9e9cd3c64dffbbef3b154511eee704ceb0 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 3 Feb 2008 00:18:51 +0100
Subject: Use Objective-C metaclasses as CLOS metaclasses.

darcs-hash:dd0a1476e5412105a56b7c7de18f7d14f7af2696
---
 Lisp/class-definition.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'Lisp/class-definition.lisp')

diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index 049d521..45e6956 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -40,6 +40,11 @@
   ())
 
 
+(defmethod c2mop:validate-superclass ((class objective-c-meta-class)
+                                      (superclass standard-class))
+  t)
+
+
 (defmethod c2mop:direct-slot-definition-class ((class objective-c-class)
                                          &rest initargs)
   (if (some #'(lambda (symbol) (let ((nada '#:nada))
@@ -160,5 +165,5 @@
    (nothing :accessor ns-string-nothing
             :initarg :ns-string
             :initform 100))
-  (:metaclass objective-c-class)
+  (:metaclass objective-c-classes::%ns-string)
   (:wrapped-foreign-class "NSString"))
-- 
cgit v1.2.3