diff --git a/tools/clmcom.lisp b/tools/clmcom.lisp index 945f420b5a8dc6e2e5e88b1cc60320683e7e6d19..7f5906d914b7c113650e8bf3710dc866ff5e99d5 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 460aea7169864d4ed197d58d9fac56d468ce4945..f9c557514c93abeb0ba9a9d354cce596f5ffa69b 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 cd5bf78af7f3a3a31de425c8e29555ba7e0bf5f1..0110923825068275690fd9da7db443acd445cf8f 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"