diff options
| -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 bb6282f..87f7e55 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -364,7 +364,7 @@ Returns: *result* --- the return value of the method invocation. (let ((*skip-retaining* (or *skip-retaining* (constructor-name-p (selector-name selector))))) - (make-instance return-type + (make-instance (car return-type) :pointer (cffi:mem-ref objc-return-value-cell return-c-type)))) (otherwise (cffi:mem-ref objc-return-value-cell |