From 1f7f57b038c87e0aef1d24a80e1c2b44539609d8 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Tue, 25 Nov 1997 18:58:24 +0000
Subject: [PATCH] Fix the GENCGC support; can't use feature conditional forms
 in the early stages so will have to be hand edited.

---
 tools/worldload.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/tools/worldload.lisp b/tools/worldload.lisp
index 3a2e677e4..1de8bdf8e 100644
--- a/tools/worldload.lisp
+++ b/tools/worldload.lisp
@@ -6,7 +6,7 @@
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.82 1997/11/25 18:33:32 dtc Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.83 1997/11/25 18:58:24 dtc Exp $
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,8 +18,9 @@
 
 (in-package "LISP")
 
-#+gencgc (setf *load-x86-tlf-to-dynamic-space* t)  ; potentially dangerous.
-#+gencgc (setf cl::*enable-dynamic-space-code* t)
+;;; Uncomment for GENCGC.
+;(setf *load-x86-tlf-to-dynamic-space* t)  ; potentially dangerous.
+;(setf cl::*enable-dynamic-space-code* t)
 
 ;;; Get some data on this core.
 ;;;
-- 
GitLab