From 60fdd964e4f05703fc2824f5ce67e31142fd8135 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 30 Sep 1994 15:18:57 +0000 Subject: [PATCH] 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. --- code/save.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/save.lisp b/code/save.lisp index aed491347..7a41beee3 100644 --- a/code/save.lisp +++ b/code/save.lisp @@ -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 -- GitLab