diff options
Diffstat (limited to 'Lisp/type-conversion.lisp')
-rw-r--r-- | Lisp/type-conversion.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/type-conversion.lisp b/Lisp/type-conversion.lisp index eac3687..9796104 100644 --- a/Lisp/type-conversion.lisp +++ b/Lisp/type-conversion.lisp @@ -25,7 +25,7 @@ (typespec-primary-type typespec)) ((id objective-c-class exception selector) (let ((*skip-retaining* skip-retaining-p)) - (intern-pointer-wrapper (car (typespec typespec)) + (intern-pointer-wrapper (typespec-primary-type typespec) :pointer (cffi:mem-ref foreign-value-cell c-type)))) ((:char :unsigned-char) |