0.pre8.25:

[sbcl.git] / src / runtime / cheneygc.c

diff --git a/src/runtime/cheneygc.c b/src/runtime/cheneygc.c
index 894fc5c..b9fd6b2 100644 (file)
--- a/src/runtime/cheneygc.c
+++ b/src/runtime/cheneygc.c
@@ -27,6 +27,8 @@
 #include "validate.h"
 #include "lispregs.h"
 #include "interr.h"
+#include "genesis/static-symbols.h"
+#include "genesis/primitive-objects.h"
 
 /* So you need to debug? */
 #if 0
@@ -568,7 +570,13 @@ gc_init(void)
 void
 gc_initialize_pointers(void)
 {
-    current_dynamic_space = DYNAMIC_0_SPACE_START;
+    /* FIXME: We do nothing here.  We (briefly) misguidedly attempted
+       to set current_dynamic_space to DYNAMIC_0_SPACE_START here,
+       forgetting that (a) actually it could be the other and (b) it's
+       set in coreparse.c anyway.  There's a FIXME note left here to
+       note that current_dynamic_space is a violation of OAOO: we can
+       tell which dynamic space we're currently in by looking at
+       dynamic_space_free_pointer.  -- CSR, 2002-08-09 */
 }