From 66dedcc85fcf4d361cb2d7d818fc616e38aff997 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 23 Jul 1990 13:33:22 +0000
Subject: [PATCH] FLushed world-load-init-function and made SAVE-LISP turn on
 GC, since GC mustbe enabled before the init function is called.

---
 code/lispinit.lisp | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index 3de9d75b7..eaebaea58 100644
--- a/code/lispinit.lisp
+++ b/code/lispinit.lisp
@@ -882,6 +882,7 @@
 				  #'(lambda ()
 				      (throw 'top-level-catcher nil)))
 				 (load-init-file t)
+				 (enable-gc t)
 				 (print-herald t)
 				 (process-command-line t))
   "Saves a Spice Lisp core image in the file of the specified name.  The
@@ -909,7 +910,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)
@@ -937,6 +941,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
@@ -945,16 +951,6 @@
     (funcall init-function)))
 
 
-;;; WORLD-LOAD-INIT-FUNCTION  --  Interface
-;;;
-;;;    The init function we pass to SAVE-LISP in worldload.  We turn on GC and
-;;; thow to top level.
-;;;
-(defun world-load-init-function ()
-  (gc-on)
-  (abort))
-
-
 ;;; Quit gets us out, one way or another.
 
 (defun quit (&optional recklessly-p)
-- 
GitLab