From 2f1df9d277d2c5e38cf162dadf170074c0d20526 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 5 Feb 2008 22:59:55 +0100
Subject: Internally, do case-sensitivity-mode-independent method calls only.

darcs-hash:8f3c3e6383a484ef7d0a8c18e3e9354867d792ad
---
 Lisp/method-invocation.lisp | 24 ++++++++++++------------
 1 file 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))
-- 
cgit v1.2.3