summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 22:04:09 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 22:04:09 +0100
commit03239b38e120640e923f39eebd6c416147aebc19 (patch)
treed53df54093330f202ff2b651e1a6c4ad3816dbe1 /Lisp
parent6ed4ce022d70e3b61fe955755de512d5def5eabc (diff)
More cleanups.
darcs-hash:5e7b63e513b1c956c1963761a594bbd332fca0d4
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/class-definition.lisp24
1 files changed, 1 insertions, 23 deletions
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)