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