diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-23 03:23:01 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-23 03:23:01 +0200 |
| commit | 0544272da832227ad04ae1a48c478a166e81077d (patch) | |
| tree | 6cd047f1737c31361b32ae58370ed25776e509ab /Lisp/method-invocation.lisp | |
| parent | 7765ad52e00034edd23bb09bade83d8b282f8040 (diff) | |
Make memory management a lot saner.
darcs-hash:274be9f0ed5fa33e5e883d7b3df57f00c567e777
Diffstat (limited to 'Lisp/method-invocation.lisp')
| -rw-r--r-- | Lisp/method-invocation.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |