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

The special form C-INLINE was destructively manipulating its arguments.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-08 00:35:18 +02:00
parent d8abf4d4b7
commit fb55d5151d
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/cmp/cmpffi.lsp
View file

@ -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*)