diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 17:46:59 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 17:46:59 +0100 |
| commit | b1a461fd11fd36685704fd8c2a03362c417c4a97 (patch) | |
| tree | c48f958a0b5866e3b0c7f50ab1349ff4884ac3f2 /Lisp/type-conversion.lisp | |
| parent | 2e0809c9cf80f7c6d95c5cd21ae4374941c5fd17 (diff) | |
Support simple CFFI types as typespecs.
darcs-hash:08236de112dc806e436b6d48a24d7922e33e801a
Diffstat (limited to 'Lisp/type-conversion.lisp')
| -rw-r--r-- | Lisp/type-conversion.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Lisp/type-conversion.lisp b/Lisp/type-conversion.lisp index 1350f5c..df9b0e0 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) + (intern-pointer-wrapper (car (typespec typespec)) :pointer (cffi:mem-ref foreign-value-cell c-type)))) ((:char :unsigned-char) @@ -39,4 +39,4 @@ ;; FOREIGN-VALUE-LISP-MANAGED-P to false. (make-struct-wrapper foreign-value-cell typespec t)) ((:void) (values)) - (otherwise (cffi:mem-ref foreign-value-cell c-type)))))
\ No newline at end of file + (otherwise (cffi:mem-ref foreign-value-cell c-type))))) |