Skip to content
Snippets Groups Projects
Commit 66dedcc8 authored by ram's avatar ram
Browse files

FLushed world-load-init-function and made SAVE-LISP turn on GC, since

GC mustbe enabled before the init function is called.
parent c405117e
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment