From 6b625e6766c2a7c6cd1ed11e94757b657dcfd8d7 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 11 Dec 2001 07:24:42 +0000
Subject: [PATCH] Variable SYS:*INIT-FUNCTION-PREFIX* should also be present in
 systems in which dynamically linked libraries are not supported.

---
 src/c/all_symbols.d | 2 --
 src/c/load.d        | 4 +---
 2 files changed, 1 insertion(+), 5 deletions(-)

diff --git a/src/c/all_symbols.d b/src/c/all_symbols.d
index ff3daeb85..3fcf9e805 100644
--- a/src/c/all_symbols.d
+++ b/src/c/all_symbols.d
@@ -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
diff --git a/src/c/load.d b/src/c/load.d
index 131082bbf..5189f8d3e 100644
--- a/src/c/load.d
+++ b/src/c/load.d
@@ -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;
 }