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

*action-on-undefined-variable* lives in the ext package

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-03-20 08:26:22 +01:00
parent 80802e28aa
commit e0b5584b65
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/compiler.d
View file

@ -673,7 +673,7 @@ c_var_ref(cl_env_ptr env, cl_object var, int allow_symbol_macro, bool ensure_def
}
}
if (ensure_defined) {
l = ecl_symbol_value(@'si::*action-on-undefined-variable*');
l = ecl_symbol_value(@'ext::*action-on-undefined-variable*');
if (l != Cnil) {
funcall(3, l, undefined_variable, var);
}