diff options
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))))))))) |