From d77e370f563afd9037a8e6be006068e9013753cc Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 5 Nov 2002 10:58:13 +0000
Subject: [PATCH] In systems without DLOPEN, the list of *load-hooks* was
 corrupt.

---
 src/c/alloc_2.d | 2 ++
 src/c/load.d    | 7 +++++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/c/alloc_2.d b/src/c/alloc_2.d
index 25f52caa7..f28a82827 100644
--- a/src/c/alloc_2.d
+++ b/src/c/alloc_2.d
@@ -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)();
 }
diff --git a/src/c/load.d b/src/c/load.d
index db30ff66e..0664e73c4 100644
--- a/src/c/load.d
+++ b/src/c/load.d
@@ -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'),