From b73c9685f243cfd3a35b6118d76949c5e0d1e24a Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 3 Oct 1990 15:55:58 +0000 Subject: [PATCH] Added the :ENABLE-GC option to SAVE-LISP so that GC can be turned on before switch demons are run (such as -edit.) --- code/save.lisp | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/code/save.lisp b/code/save.lisp index d2650b04d..7ca8639d9 100644 --- a/code/save.lisp +++ b/code/save.lisp @@ -8,7 +8,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.3 1990/09/27 02:24:19 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.4 1990/10/03 15:55:58 ram Exp $ ;;; ;;; Dump the current lisp image into a core file. All the real work is done ;;; be C. @@ -57,6 +57,7 @@ #'(lambda () (throw 'top-level-catcher nil))) (load-init-file t) + (enable-gc t) (print-herald t) (process-command-line t)) "Saves a CMU Common Lisp core image in the file of the specified name. The @@ -86,7 +87,10 @@ file is resumed. :print-herald - If true, print out the lisp system herald when starting." + If true, print out the lisp system herald when starting. + + :enable-gc + If true, turn GC on if it was off." (if purify (purify :root-structures root-structures :constants constants) @@ -124,6 +128,8 @@ "init"))) (load (merge-pathnames name (user-homedir-pathname)) :if-does-not-exist nil)))) + (when enable-gc + (gc-on)) (when print-herald (print-herald)) (when process-command-line -- GitLab