diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-15 13:33:38 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-15 13:33:38 +0100 |
| commit | 17aeae082fda67704ec0835b20e2412573775b2b (patch) | |
| tree | d2995d1d150375db8a191f434c37aa14ca1c248a /Lisp/method-invocation.lisp | |
| parent | 2e244d781b1b1096cddfd0df558ec7cee19b33a1 (diff) | |
Wrap returned structs with TAGGED-STRUCT instances.
darcs-hash:ddf05fa12ece35775cbf4cf25fad2903db1f3753
Diffstat (limited to 'Lisp/method-invocation.lisp')
| -rw-r--r-- | Lisp/method-invocation.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index 85b8b0d..59b4ce4 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -464,7 +464,9 @@ easier to use with __apply__. ((struct union array) ;; The caller is responsible for FOREIGN-FREEing the ;; return value. - objc-struct-return-value-cell) + (make-struct-wrapper objc-struct-return-value-cell + return-type + t)) ((:void) (values)) (otherwise (cffi:mem-ref objc-return-value-cell return-c-type))))))))) |