From 52a1a0699552e69f3f52b4d42b9175f2de5aba71 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Tue, 4 Nov 1997 16:29:37 +0000
Subject: [PATCH] Don't purify after loading packages with GENCGC as it's
 broken and moving the objects to an old generation works better.

---
 tools/clmcom.lisp | 5 +++--
 tools/clxcom.lisp | 3 ++-
 tools/hemcom.lisp | 3 ++-
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/tools/clmcom.lisp b/tools/clmcom.lisp
index 945f420b5..7f5906d91 100644
--- a/tools/clmcom.lisp
+++ b/tools/clmcom.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clmcom.lisp,v 1.18 1994/11/02 17:39:58 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clmcom.lisp,v 1.19 1997/11/04 16:29:36 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -23,7 +23,8 @@
 #-clx
 (progn
   (load "target:clx/clx-library")
-  (ext:purify))
+  #+gencgc (gc :full t)
+  #-gencgc (ext:purify))
 
 (pushnew :motif *features*)
 
diff --git a/tools/clxcom.lisp b/tools/clxcom.lisp
index 460aea716..f9c557514 100644
--- a/tools/clxcom.lisp
+++ b/tools/clxcom.lisp
@@ -10,7 +10,8 @@
 #+(and (not pcl) (not no-pcl-clx))
 (progn
   (load "target:pcl/pclload")
-  (ext:purify))
+  #+gencgc (gc :full t)
+  #-gencgc (ext:purify))
 
 (pushnew :clx-ansi-common-lisp *features*)
 
diff --git a/tools/hemcom.lisp b/tools/hemcom.lisp
index cd5bf78af..011092382 100644
--- a/tools/hemcom.lisp
+++ b/tools/hemcom.lisp
@@ -44,7 +44,8 @@
   #+(and (not pcl) (not no-pcl-clx))
   (load "target:pcl/pclload")
   (load "target:clx/clx-library")
-  (ext:purify))
+  #+gencgc (gc :full t)
+  #-gencgc (ext:purify))
   
 (with-compiler-log-file
     ("target:compile-hemlock.log"
-- 
GitLab