From 925bb8b3ceb87a6dd09c99ad08eef4c23a1dc524 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 3 Feb 2008 00:36:03 +0100
Subject: Allow subclassing between Objective-C wrapper classes.

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

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

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)
-- 
cgit v1.2.3