mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 23:02:31 -08:00
Code Issues Projects Releases Packages Wiki Activity

Save the value of the code walker in the compiler environment

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-03-18 20:03:30 +01:00
parent 83b38deac6
commit af9808d5d9
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/compiler.d
View file

@ -567,7 +567,9 @@ c_new_env(cl_env_ptr the_env, cl_compiler_env_ptr new, cl_object env,
new->env_depth = old->env_depth + 1;
new->stepping = old->stepping;
new->mode = old->mode;
new->code_walker = old->code_walker;
} else {
new->code_walker = ECL_SYM_VAL(the_env, @'si::*code-walker*');
new->constants = si_make_vector(Ct, MAKE_FIXNUM(16),
Ct, /* Adjustable */
MAKE_FIXNUM(0), /* Fillp */
@ -2256,14 +2258,13 @@ compile_symbol(cl_env_ptr env, cl_object stmt, int flags)
static int
compile_form(cl_env_ptr env, cl_object stmt, int flags) {
const cl_compiler_ptr c_env = env->c_env;
cl_object code_walker = ECL_SYM_VAL(env, @'si::*code-walker*');
cl_object function;
int new_flags;
ecl_bds_bind(env, @'si::*current-form*', stmt);
BEGIN:
if (code_walker != OBJNULL) {
stmt = funcall(3, ECL_SYM_VAL(env,@'si::*code-walker*'), stmt,
if (c_env->code_walker != OBJNULL) {
stmt = funcall(3, c_env->code_walker, stmt,
CONS(c_env->variables, c_env->macros));
}
/*

1
src/h/internal.h
View file

@ -107,6 +107,7 @@ struct cl_compiler_env {
cl_object constants; /* Constants for this form */
cl_object load_time_forms; /* Constants that have to be rebuilt */
cl_object lex_env; /* Lexical env. for eval-when */
cl_object code_walker; /* Value of SI:*CODE-WALKER* */
cl_index env_depth;
cl_index env_size;
int mode;