From b8c9eac7390219c71b67c6022a1cf1203d609d87 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 21 Sep 2007 01:57:00 +0200 Subject: LOW-LEVEL-INVOKE: Cosmetic changes. darcs-hash:7e4e25d9e5b35ca41cc7cdbf3aa03e0c38840c78 --- Lisp/method-invocation.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index 94f1bb2..5a7a719 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -337,6 +337,12 @@ Returns: *result* --- the return value of the method invocation. do (setf (cffi:mem-aref objc-arg-ptrs :pointer i) (cffi:inc-pointer objc-arg-buffer (* i +pessimistic-allocation-size+)))) + ;; Prepare the argument typestring vector. Note that we don't + ;; pass the first two strings, as they are always the same. + (loop for i from 0 + for arg-typestring in (cddr arg-typestrings) + do (setf (mem-aref objc-arg-typestrings :string i) + (alloc-string-and-register arg-typestring))) (macrolet ((argref (type num) `(cffi:mem-ref objc-arg-buffer ,type (* ,num +pessimistic-allocation-size+)))) @@ -394,12 +400,6 @@ Returns: *result* --- the return value of the method invocation. (setf (argref arg-c-type i) (pointer-to (coerce-object arg 'id)))) (t (setf (argref arg-c-type i) arg))))) - ;; Prepare the argument typestring vector. Note that we don't - ;; pass the first two strings, as they are always the same. - (loop for i from 0 - for arg-typestring in (cddr arg-typestrings) - do (setf (mem-aref objc-arg-typestrings :string i) - (alloc-string-and-register arg-typestring))) (let* ((error-cell (%objcl-invoke-with-types (- argc 2) return-typestring -- cgit v1.2.3