diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 01:02:58 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 01:02:58 +0200 |
| commit | 6da9b0259a0659c1a5bf6e7bd8035972a29f5742 (patch) | |
| tree | d56f0d1a3ce9a52b9ef2b1fb059c40002e99b2dc /Lisp/method-invocation.lisp | |
| parent | c51ecd519b1ab8db50051fa12ccfa0bf85701a43 (diff) | |
LOW-LEVEL-INVOKE: Correctly pass typespec data on to the Objective-C layer.
darcs-hash:a2f860fe7c6740ad1aac1887ba7895e927ebdecd
Diffstat (limited to 'Lisp/method-invocation.lisp')
| -rw-r--r-- | Lisp/method-invocation.lisp | 2 |
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 |