diff --git a/code/save.lisp b/code/save.lisp index d2650b04db2b9d44632195ea2ad62b6cebeea2e4..7ca8639d9103a78e61917f484e4adae86f899e35 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