From 046f4e6ecbe2cbef2079eb8a245895ff70238e92 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 3 Feb 2008 22:36:06 +0100
Subject: Automatically set Objective-C wrapper classes' superclasses.

darcs-hash:ef9a71b349ac03e3d80ed89c750f3dd82ad67630
---
 Lisp/class-definition.lisp | 11 +++++++++++
 1 file changed, 11 insertions(+)

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

diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index ffeca02..e331d83 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -116,6 +116,17 @@
   (let ((class (call-next-method)))
     class))
 
+#+(or)
+(defmethod c2mop:class-direct-superclasses ((class objective-c-class))
+  (list (objcl-class-superclass class)))
+
+
+#+(or)
+(defmethod shared-initialize :after ((class objective-c-class)
+                                     slot-names
+                                     &rest initargs)
+  )
+
 (defmethod initialize-instance ((class objective-c-class)
                                 &key documentation
                                      name
-- 
cgit v1.2.3