From 6da9b0259a0659c1a5bf6e7bd8035972a29f5742 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 21 Sep 2007 01:02:58 +0200 Subject: LOW-LEVEL-INVOKE: Correctly pass typespec data on to the Objective-C layer. darcs-hash:a2f860fe7c6740ad1aac1887ba7895e927ebdecd --- Lisp/method-invocation.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Lisp') diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index b77ad0f..d55d200 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -399,7 +399,7 @@ Returns: *result* --- the return value of the method invocation. ;; 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 arg-typestrings + 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 -- cgit v1.2.3