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