From fb55d5151d8b58848deb1f9a9ff16a49dc586dca Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 8 May 2010 00:35:18 +0200 Subject: [PATCH] The special form C-INLINE was destructively manipulating its arguments. --- src/cmp/cmpffi.lsp | 1 + 1 file changed, 1 insertion(+) diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp index ea04f6245..fab4e86fa 100644 --- a/src/cmp/cmpffi.lsp +++ b/src/cmp/cmpffi.lsp @@ -381,6 +381,7 @@ (let ((ndx (position :cstring arg-types))) (when ndx (let* ((var (gensym)) + (arguments (copy-list arguments)) (value (elt arguments ndx))) (setf (elt arguments ndx) var (elt arg-types ndx) :char*)