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