From 0544272da832227ad04ae1a48c478a166e81077d Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 23 Sep 2007 03:23:01 +0200 Subject: Make memory management a lot saner. darcs-hash:274be9f0ed5fa33e5e883d7b3df57f00c567e777 --- Lisp/method-invocation.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Lisp/method-invocation.lisp') diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index 83fead1..9e44e62 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -254,7 +254,7 @@ easier to use with __apply__. return-c-type))) (if (cffi:null-pointer-p pointer) nil - (make-instance return-type :pointer pointer)))) + (make-pointer-wrapper return-type :pointer pointer)))) ((:void) (values)) (otherwise (cffi:mem-ref return-value-cell return-c-type))))))))))) @@ -402,7 +402,7 @@ easier to use with __apply__. (let ((*skip-retaining* (or *skip-retaining* (constructor-name-p (selector-name selector))))) - (make-instance (car return-type) + (make-pointer-wrapper (car return-type) :pointer (cffi:mem-ref objc-return-value-cell return-c-type)))) ((:void) (values)) -- cgit v1.2.3