diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 12:36:06 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 12:36:06 +0100 |
commit | 11c857700e03ec0b758f729731784d0f46a6d55e (patch) | |
tree | 28251a60e4612f0880675e19ef212b6cf2b1bcca /Lisp/type-conversion.lisp | |
parent | 088de3d24f58c8bb8f8a2ac25c5da373a7e3a1f2 (diff) |
Use INTERN-LISP-VALUE for argument conversion.
darcs-hash:2f57dd53bfa6b2aa44474232042d9578af720c22
Diffstat (limited to 'Lisp/type-conversion.lisp')
-rw-r--r-- | Lisp/type-conversion.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Lisp/type-conversion.lisp b/Lisp/type-conversion.lisp index 6eca43b..1350f5c 100644 --- a/Lisp/type-conversion.lisp +++ b/Lisp/type-conversion.lisp @@ -24,8 +24,7 @@ (case (or (typespec-nominal-type typespec) (typespec-primary-type typespec)) ((id objective-c-class exception selector) - (let ((*skip-retaining* - skip-retaining-p)) + (let ((*skip-retaining* skip-retaining-p)) (intern-pointer-wrapper (car typespec) :pointer (cffi:mem-ref foreign-value-cell c-type)))) |