From 628a01f38931b5cd3b3c1ede19e8b0b5678bf453 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 2 Feb 2008 23:49:57 +0100
Subject: Introduce new metaclass OBJECTIVE-C-META-CLASS.

darcs-hash:3d9bf7fb5b37a4089ae3d85493612c6e6abc4469
---
 Lisp/class-definition.lisp | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

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

diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index ea77362..75481d0 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -119,6 +119,26 @@
                                        wrapped-foreign-class)
   (call-next-method))
 
+(defmethod initialize-instance ((class objective-c-meta-class)
+                                &key documentation
+                                     name
+                                     plist
+                                     direct-superclasses
+                                     direct-slots
+                                     direct-default-initargs
+                                     pointer)
+  (call-next-method))
+
+(defmethod reinitialize-instance ((class objective-c-meta-class)
+                                  &key documentation
+                                       name
+                                       plist
+                                       direct-superclasses
+                                       direct-slots
+                                       direct-default-initargs
+                                       pointer)
+  (call-next-method))
+
 #+(or)
 (defmethod c2mop:compute-effective-slot-definition ((class objective-c-class)
                                                     slot-name
-- 
cgit v1.2.3