summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-09-21 01:02:58 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-09-21 01:02:58 +0200
commit6da9b0259a0659c1a5bf6e7bd8035972a29f5742 (patch)
treed56f0d1a3ce9a52b9ef2b1fb059c40002e99b2dc /Lisp
parentc51ecd519b1ab8db50051fa12ccfa0bf85701a43 (diff)
LOW-LEVEL-INVOKE: Correctly pass typespec data on to the Objective-C layer.
darcs-hash:a2f860fe7c6740ad1aac1887ba7895e927ebdecd
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-invocation.lisp2
1 files changed, 1 insertions, 1 deletions
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