mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-30 04:10:44 -08:00
Code Issues Projects Releases Packages Wiki Activity

When evaluating :COMPILE-TOPLEVEL forms in the bytecodes compiler, reset the list of constants (some of them might have been transformed into load-time ones)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-07-14 17:39:29 +02:00
parent 2a1de25e39
commit 6f78b69db9
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/compiler.d
View file

@ -2333,6 +2333,11 @@ eval_nontrivial_form(cl_env_ptr env, cl_object form) {
frame.env = env;
env->nvalues = 0;
env->values[0] = Cnil;
new_c_env.constants = Cnil;
new_c_env.constants_size = 0;
new_c_env.load_time_forms = Cnil;
new_c_env.env_depth = 0;
new_c_env.env_size = 0;
env->c_env = &new_c_env;
handle = asm_begin(env);
compile_form(env, form, FLAG_VALUES);