summaryrefslogtreecommitdiff
path: root/Lisp/class-definition.lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-03 00:36:03 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-03 00:36:03 +0100
commit925bb8b3ceb87a6dd09c99ad08eef4c23a1dc524 (patch)
treef5c7823e656fc2d74409c0e22f6c701ffcb74dc4 /Lisp/class-definition.lisp
parent5cd4ba9e9cd3c64dffbbef3b154511eee704ceb0 (diff)
Allow subclassing between Objective-C wrapper classes.
darcs-hash:89b323107ac83b94f5db275fb6b1d5909ea90308
Diffstat (limited to 'Lisp/class-definition.lisp')
-rw-r--r--Lisp/class-definition.lisp3
1 files changed, 3 insertions, 0 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index 45e6956..be6e845 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -44,6 +44,9 @@
(superclass standard-class))
t)
+(defmethod c2mop:validate-superclass ((class objective-c-class)
+ (superclass objective-c-class))
+ t)
(defmethod c2mop:direct-slot-definition-class ((class objective-c-class)
&rest initargs)