summaryrefslogtreecommitdiff
path: root/Lisp/class-definition.lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-02 23:49:57 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-02 23:49:57 +0100
commit628a01f38931b5cd3b3c1ede19e8b0b5678bf453 (patch)
treeb51002ff91016a5ec9d276c78c27f649f4d9776f /Lisp/class-definition.lisp
parent3d0e2eda9285b91a998b86cb72c806c2aa5d789e (diff)
Introduce new metaclass OBJECTIVE-C-META-CLASS.
darcs-hash:3d9bf7fb5b37a4089ae3d85493612c6e6abc4469
Diffstat (limited to 'Lisp/class-definition.lisp')
-rw-r--r--Lisp/class-definition.lisp20
1 files changed, 20 insertions, 0 deletions
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