diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-16 01:21:31 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-16 01:21:31 +0200 |
commit | 319cdb79ca6ca45c9b2912ead651dffcf35ecbf5 (patch) | |
tree | b2fd4e57953fb050316c74f818d23dff565b8b01 /Lisp/method-invocation.lisp | |
parent | 6a82b0dd5fd0f087ecda5923c6ae93fcea806141 (diff) |
Add test cases for PRIMITIVE-INVOKE and fix some stupid bugs.
darcs-hash:d1f3e7e599cad38b28c45448adeec9126d043e05
Diffstat (limited to 'Lisp/method-invocation.lisp')
-rw-r--r-- | Lisp/method-invocation.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index c44fb04..41584ad 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -135,7 +135,7 @@ Returns: *result* --- the return value of the method invocation. (selector (selector method-name))) (unwind-protect (with-foreign-conversion ((objc-receiver receiver)) - (with-foreign-objects ((return-value + (with-obj-data-values ((return-value (apply-macro '%objcl-invoke-method objc-receiver (pointer-to selector) @@ -230,9 +230,7 @@ Returns: *result* --- the return value of the method invocation. (ad-hoc-arglist->objc-arglist! args) (unwind-protect (let ((error-cell - (%objcl-invoke-with-types (pointer-to receiver) - (pointer-to selector) - (length args) + (%objcl-invoke-with-types (length args) return-type-cell arg-types return-value-cell |