summaryrefslogtreecommitdiff
path: root/Lisp/lisp-value-wrapping.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp/lisp-value-wrapping.lisp')
-rw-r--r--Lisp/lisp-value-wrapping.lisp6
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)))