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

*load-hooks* and *module-provider-hooks* moved to package EXT

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-08-01 22:04:33 +02:00
parent 28b5a96bb4
commit aae43ecce3
4 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/load.d
View file

@ -223,7 +223,7 @@ si_load_bytecodes(cl_object source, cl_object verbose, cl_object print, cl_objec
pntype = pathname->pathname.type;
filename = Cnil;
hooks = ecl_symbol_value(@'si::*load-hooks*');
hooks = ecl_symbol_value(@'ext::*load-hooks*');
if (Null(pathname->pathname.directory) &&
Null(pathname->pathname.host) &&
Null(pathname->pathname.device) &&

2
src/c/main.d
View file

@ -664,7 +664,7 @@ cl_boot(int argc, char **argv)
CONS(str_fasc, @'si::load-bytecodes'),
CONS(str_FASC, @'si::load-bytecodes'),
CONS(Cnil, @'si::load-source'));
ECL_SET(@'si::*load-hooks*', aux);
ECL_SET(@'ext::*load-hooks*', aux);
init_error();
init_macros();
init_compiler();

2
src/c/symbols_list.h
View file

@ -1100,7 +1100,7 @@ cl_symbols[] = {
{SYS_ "*INIT-FUNCTION-PREFIX*", SI_SPECIAL, NULL, -1, Cnil},
{EXT_ "*INTERRUPTS-ENABLED*", EXT_SPECIAL, NULL, 1, Ct},
{SYS_ "*KEEP-DEFINITIONS*", SI_SPECIAL, NULL, -1, Ct},
{SYS_ "*LOAD-HOOKS*", SI_SPECIAL, NULL, -1, OBJNULL},
{EXT_ "*LOAD-HOOKS*", EXT_SPECIAL, NULL, -1, OBJNULL},
{SYS_ "*LOAD-SEARCH-LIST*", SI_SPECIAL, NULL, -1, Cnil},
{SYS_ "*MAKE-CONSTANT", SI_ORDINARY, si_Xmake_constant, 2, OBJNULL},
{SYS_ "*MAKE-SPECIAL", SI_ORDINARY, si_Xmake_special, 1, OBJNULL},

2
src/c/symbols_list2.h
View file

@ -1100,7 +1100,7 @@ cl_symbols[] = {
{SYS_ "*INIT-FUNCTION-PREFIX*",NULL},
{EXT_ "*INTERRUPTS-ENABLED*",NULL},
{SYS_ "*KEEP-DEFINITIONS*",NULL},
{SYS_ "*LOAD-HOOKS*",NULL},
{EXT_ "*LOAD-HOOKS*",NULL},
{SYS_ "*LOAD-SEARCH-LIST*",NULL},
{SYS_ "*MAKE-CONSTANT","si_Xmake_constant"},
{SYS_ "*MAKE-SPECIAL","si_Xmake_special"},