summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
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)