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

In systems without DLOPEN, the list of *load-hooks* was corrupt.

Browse source
This commit is contained in:
jjgarcia 2002-11-05 10:58:13 +00:00
parent b0ce08d0ea
commit d77e370f56
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/alloc_2.d
View file

@ -223,6 +223,7 @@ init_alloc(void)
static void
stacks_scanner(void)
{
#if 0
if (cl_stack) {
GC_push_conditional(cl_stack, cl_stack_top,1);
GC_set_mark_bit(cl_stack);
@ -237,6 +238,7 @@ stacks_scanner(void)
}
if (NValues)
GC_push_all(Values, Values+NValues+1);
#endif
if (old_GC_push_other_roots)
(*old_GC_push_other_roots)();
}

7
src/c/load.d
View file

@ -205,9 +205,12 @@ init_load(void)
SYM_VAL(@'si::*source-pathname*') = Cnil;
#endif
SYM_VAL(@'si::*load-hooks*') = cl_list(4,
SYM_VAL(@'si::*load-hooks*') = cl_list(
#ifdef ENABLE_DLOPEN
CONS(make_simple_string("so"), @'si::load-binary'),
4,CONS(make_simple_string("so"), @'si::load-binary'),
#else
3,
#endif
CONS(make_simple_string("lsp"), @'si::load-source'),
CONS(make_simple_string("lisp"), @'si::load-source'),