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