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

We have to use ECL_SETQ to assign values to bound special variables.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-12 22:12:57 +02:00
parent 70c64f9652
commit 53e1918169
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpvar.lsp
View file

@ -241,7 +241,7 @@
((SPECIAL GLOBAL)
(if (safe-compile)
(wt-nl "cl_set(" var-loc ",")
(wt-nl "ECL_SET(" var-loc ","))
(wt-nl "ECL_SETQ(cl_env_copy," var-loc ","))
(wt-coerce-loc (var-rep-type var) loc)
(wt ");"))
(t