summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-09-17 21:53:40 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-09-17 21:53:40 +0200
commit66ec63315fc0135ddba1f9551e36dd629b1a27fb (patch)
tree838a499dfa706629ce8f6452f30efa7d93f0f696
parentc011b6b9863920f05a44ef3411010e1062388527 (diff)
LOW-LEVEL-INVOKE: Fix return type lossage.
darcs-hash:21a9356e10f813bd60daa001973cfb37a2ceb66a
-rw-r--r--Lisp/method-invocation.lisp2
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