summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 22:59:55 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 22:59:55 +0100
commit2f1df9d277d2c5e38cf162dadf170074c0d20526 (patch)
tree1fd35f5db9e2b09871474b14ba95954b201835e2 /Lisp
parentb7ffdea2a207ec03acdc931cb8422d7e85e42ee8 (diff)
Internally, do case-sensitivity-mode-independent method calls only.
darcs-hash:8f3c3e6383a484ef7d0a8c18e3e9354867d792ad
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-invocation.lisp24
1 files changed, 12 insertions, 12 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp
index 3170670..4653960 100644
--- a/Lisp/method-invocation.lisp
+++ b/Lisp/method-invocation.lisp
@@ -355,25 +355,25 @@ easier to use with __apply__.
(let* ((signature
(or (if (eq instance-or-class :instance)
(primitive-invoke class
- :instance-method-signature-for-selector
+ "instanceMethodSignatureForSelector:"
'id
selector)
(primitive-invoke class
- :method-signature-for-selector
+ "methodSignatureForSelector:"
'id
selector))
(error (make-condition 'message-not-understood
:class class
:selector selector))))
- (argc (primitive-invoke signature 'number-of-arguments :unsigned-int))
+ (argc (primitive-invoke signature "numberOfArguments" :unsigned-int))
(method-return-typestring (primitive-invoke signature
- 'method-return-type
+ "methodReturnType"
:string))
(method-return-type (parse-typespec method-return-typestring t))
(method-arg-typestrings (loop for x from 0 below argc
collect (primitive-invoke
signature
- :get-argument-type-at-index
+ "getArgumentTypeAtIndex:"
:string
x)))
(method-arg-types (mapcar #'parse-typespec method-arg-typestrings)))
@@ -525,23 +525,23 @@ easier to use with __apply__.
(defcoercion id ((x integer))
(primitive-invoke (find-objc-class 'ns-number)
- :number-with-int
+ "numberWithInt:"
'id
x))
(defcoercion id ((x float))
(primitive-invoke (find-objc-class 'ns-number)
(etypecase x
- (long-float :number-with-double)
- (double-float :number-with-double)
- (short-float :number-with-float)
- (single-float :number-with-float))
+ (long-float "numberWithDouble:")
+ (double-float "numberWithDouble:")
+ (short-float "numberWithFloat:")
+ (single-float "numberWithFloat:"))
'id
x))
(defcoercion id ((x string))
(primitive-invoke (find-objc-class 'ns-string)
- :string-with-u-t-f-8-string
+ "stringWithUTF8String:"
'id
x))
@@ -551,7 +551,7 @@ easier to use with __apply__.
;; that contain themselves or this list, and so on.
(apply #'primitive-invoke
(find-objc-class 'ns-array)
- :array-with-objects
+ "arrayWithObjects:"
'id
(append (mapcar #'(lambda (element)
(coerce-object element 'id))