From 03239b38e120640e923f39eebd6c416147aebc19 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 5 Feb 2008 22:04:09 +0100
Subject: More cleanups.

darcs-hash:5e7b63e513b1c956c1963761a594bbd332fca0d4
---
 Lisp/class-definition.lisp | 24 +-----------------------
 1 file changed, 1 insertion(+), 23 deletions(-)

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

diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index d1a4a74..c9e48c1 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -223,23 +223,6 @@
                :key #'(lambda (slotd) (getf slotd :name))))
     (apply #'call-next-method class key-args)))
 
-
-#+(or)
-(defmethod make-instance ((class-name (eql 'objective-c-class)) &rest initargs)
-  (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
@@ -282,13 +265,8 @@
                                        pointer)
   (call-next-method))
 
-#+(or)
-(defmethod c2mop:compute-effective-slot-definition ((class objective-c-class)
-                                                    slot-name
-                                                    direct-slots)
-  (call-next-method))
-
 
+;;;; (@* "Quick tests")
 #+(or)
 (make-instance 'objective-c-class :wrapped-foreign-class "NSString")
 #+(or)
-- 
cgit v1.2.3