Skip to content
Snippets Groups Projects
Commit 60fdd964 authored by ram's avatar ram
Browse files

Changed *before-save-initializations* to once again be done before saving.

They were long ago changed to running after restarting because the save
implementation no longer protected the running Lisp from their effect (by
forking.)  However, now the Lisp exits after saving, greatly reducing this
concern.
parent 10d17308
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.22 1994/03/10 16:31:01 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.23 1994/09/30 15:18:57 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -153,13 +153,13 @@
(purify :root-structures root-structures
:environment-name environment-name)
(gc))
(dolist (f *before-save-initializations*) (funcall f))
(flet
((restart-lisp ()
(catch '%end-of-the-world
(with-simple-restart (abort "Skip remaining initializations.")
(catch 'top-level-catcher
(reinit)
(dolist (f *before-save-initializations*) (funcall f))
(dolist (f *after-save-initializations*) (funcall f))
(environment-init)
(when site-init
......
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