From 03239b38e120640e923f39eebd6c416147aebc19 Mon Sep 17 00:00:00 2001 From: Matthias Benkard 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') 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