Remove a bunch of DEFINE-OBJECTIVE-C-GENERIC-FUNCTION calls.

darcs-hash:83d1f95687bb761a7fb70c1a901722d4cd2c5caf

1 files changed, 0 insertions, 6 deletions

diff --git a/Lisp/lisp-value-wrapping.lisp b/Lisp/lisp-value-wrapping.lisp
index 3236d99..a25cb2d 100644
--- a/Lisp/lisp-value-wrapping.lisp
+++ b/Lisp/lisp-value-wrapping.lisp
@@ -117,8 +117,6 @@
   (:metaclass ns::+ns-object))
 
 
-
-(define-objective-c-generic-function #/description (self))
 (define-objective-c-method #/description :id ((self ns::mlk-lisp-value))
   (#/stringWithUTF8String: (find-objc-class 'ns-string)
                            (format nil "<MLKLispValue: ~A>"
@@ -133,7 +131,6 @@
                                                     :base 10))))
 
 
-(define-objective-c-generic-function #/characterAtIndex: (self index))
 (define-objective-c-method #/characterAtIndex: :short ((self ns::mlk-lisp-string)
                                                        (index :unsigned-long))
     ;; index is actually NSUInteger ==
@@ -144,18 +141,15 @@
   (char-int (char (lisp-value self) index)))
 
 
-(define-objective-c-generic-function #/length (self))
 (define-objective-c-method #/length :unsigned-long ((self ns::mlk-lisp-string))
   (length (lisp-value self)))
 
 
-(define-objective-c-generic-function #/objectAtIndex: (self index))
 (define-objective-c-method #/objectAtIndex: ((self ns::mlk-lisp-array)
                                              (index :unsigned-long))
   (aref (lisp-value self) index))
 
 
-(define-objective-c-generic-function #/count (self))
 (define-objective-c-method #/count ((self ns::mlk-lisp-array))
   (length (lisp-value self)))