diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-16 21:12:37 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-16 21:12:37 +0100 |
| commit | 5799411300f74f5c029c4c024cd6dfc50de168f6 (patch) | |
| tree | ce7d1fabcc8d6a703cfff314fdba51c4c6a2663b /Lisp/method-invocation.lisp | |
| parent | 32eac2a29c9e6a62497f19cfd47148363201314e (diff) | |
Split MAKE-POINTER-WRAPPER into two parts.
darcs-hash:4b07101cbbba48fb579cb22ebac8ff8f520552c7
Diffstat (limited to 'Lisp/method-invocation.lisp')
| -rw-r--r-- | Lisp/method-invocation.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index 750647f..660b9ae 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -451,9 +451,10 @@ easier to use with __apply__. (let ((*skip-retaining* (or *skip-retaining* (constructor-name-p (selector-name selector))))) - (make-pointer-wrapper (car return-type) - :pointer (cffi:mem-ref objc-return-value-cell - return-c-type)))) + (intern-pointer-wrapper (car return-type) + :pointer (cffi:mem-ref + objc-return-value-cell + return-c-type)))) ((:char :unsigned-char) ;; FIXME? This is non-trivial. See policy.lisp for ;; details. |