From 4700986fb98b7b0685aa8d351d39cf14b67f6cf3 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 4 Feb 2008 15:32:37 +0100
Subject: Make ID the root of the Objective-C class hierarchy.

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

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

diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index e331d83..cac6041 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -44,6 +44,10 @@
                                       (superclass standard-class))
   t)
 
+(defmethod c2mop:validate-superclass ((class objective-c-class)
+                                      (superclass standard-class))
+  t)
+
 (defmethod c2mop:validate-superclass ((class objective-c-class)
                                       (superclass objective-c-class))
   t)
-- 
cgit v1.2.3