mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 05:12:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

When in unsafe mode, do not use the checked functions to perform C<->Lisp type coercions

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-15 16:56:53 +02:00
parent 371ca30dbb
commit 554c43ab67
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpffi.lsp
View file

@ -183,8 +183,8 @@
(let ((x (cdddr (rep-type-record rep-type))))
(unless x
(cmperr "Cannot coerce lisp object to C type ~A" rep-type))
(wt (if (and (policy-assume-no-errors)
(subtypep loc-type dest-type))
(wt (if (or (policy-assume-no-errors)
(subtypep loc-type dest-type))
(second x)
(first x))
"(" loc ")")))