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

Variable SYS:*INIT-FUNCTION-PREFIX* should also be present in systems in which

Browse source 
dynamically linked libraries are not supported.
This commit is contained in:
jjgarcia 2001-12-11 07:24:42 +00:00
parent 71181cf70d
commit 6b625e6766
2 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/all_symbols.d
View file

@ -134,9 +134,7 @@ const struct symbol_info all_symbols[] = {
{&clVload_verbose, "*LOAD-VERBOSE*", CL_SPECIAL},
{&clVload_print, "*LOAD-PRINT*", CL_SPECIAL},
{&siVload_hooks, "*LOAD-HOOKS*", SI_SPECIAL},
#ifdef ENABLE_DLOPEN
{&siVinit_function_prefix, "*INIT-FUNCTION-PREFIX*", SI_SPECIAL},
#endif
#ifdef PDE
{&siVsource_pathname, "*SOURCE-PATHNAME*", CL_SPECIAL},
#endif

4
src/c/load.d
View file

@ -29,9 +29,7 @@ cl_object @'si::*load-hooks*';
#ifdef PDE
cl_object @'si::*source-pathname*';
#endif PDE
#ifdef ENABLE_DLOPEN
cl_object @'si::*init-function-prefix*';
#endif
/******************************* ------- ******************************/
@ -241,6 +239,6 @@ init_load(void)
#ifdef ENABLE_DLOPEN
if (dlopen(NULL, RTLD_NOW|RTLD_GLOBAL) == NULL)
printf(";;; Error dlopening self file\n;;; Error: %s\n", dlerror());
SYM_VAL(@'si::*init-function-prefix*') = Cnil;
#endif
SYM_VAL(@'si::*init-function-prefix*') = Cnil;
}