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