diff --git a/src/c/load.d b/src/c/load.d index c657c18f1..b724d7385 100755 --- a/src/c/load.d +++ b/src/c/load.d @@ -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) && diff --git a/src/c/main.d b/src/c/main.d index c4840fa3d..d48f4d3f9 100644 --- a/src/c/main.d +++ b/src/c/main.d @@ -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(); diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h index 8307825ac..176fc2f60 100755 --- a/src/c/symbols_list.h +++ b/src/c/symbols_list.h @@ -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}, diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h index 1147790b7..07ff16246 100644 --- a/src/c/symbols_list2.h +++ b/src/c/symbols_list2.h @@ -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"},