sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bytecmp: don't treat load time forms as toplevel forms

Browse source 
This prevents top level forms from being evaluated in the middle
of another top level form.
This commit is contained in:
Marius Gerbershagen 2020-08-02 19:09:56 +02:00
parent be46fc0caa
commit e5736d393a
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/c/compiler.d
View file

@ -2469,6 +2469,7 @@ compile_with_load_time_forms(cl_env_ptr env, cl_object form, int flags)
cl_object p, forms_list = cl_nreverse(c_env->load_time_forms);
c_env->load_time_forms = ECL_NIL;
p = forms_list;
c_env->lexical_level++; /* don't treat load time forms as toplevel forms */
do {
cl_object r = ECL_CONS_CAR(p);
cl_object constant = pop(&r);
@ -2481,6 +2482,7 @@ compile_with_load_time_forms(cl_env_ptr env, cl_object form, int flags)
ECL_RPLACA(p, ecl_make_fixnum(loc));
p = ECL_CONS_CDR(p);
} while (p != ECL_NIL);
c_env->lexical_level--;
p = forms_list;
do {
cl_index loc = ecl_fixnum(ECL_CONS_CAR(p));