From 66ec63315fc0135ddba1f9551e36dd629b1a27fb Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 17 Sep 2007 21:53:40 +0200 Subject: LOW-LEVEL-INVOKE: Fix return type lossage. darcs-hash:21a9356e10f813bd60daa001973cfb37a2ceb66a --- Lisp/method-invocation.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Lisp') 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 -- cgit v1.2.3