From 554c43ab67cbf13047cbc0ffa55678bd6c94f199 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 15 May 2010 16:56:53 +0200 Subject: [PATCH] When in unsafe mode, do not use the checked functions to perform C<->Lisp type coercions --- src/cmp/cmpffi.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp index ace08d5b0..cb228c552 100644 --- a/src/cmp/cmpffi.lsp +++ b/src/cmp/cmpffi.lsp @@ -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 ")")))