From 8dd5b1af3b2996e52641af7584b5e2de453c2dc7 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Wed, 24 Jun 1998 20:30:36 +0000
Subject: [PATCH] Initialize the *environment-list* before running the
 after-save initializations so that the environment-list is available to them.

---
 code/save.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/save.lisp b/code/save.lisp
index 1134a8585..de8f32528 100644
--- a/code/save.lisp
+++ b/code/save.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.35 1998/05/04 00:05:54 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.36 1998/06/24 20:30:36 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -163,8 +163,8 @@
 	    (with-simple-restart (abort "Skip remaining initializations.")
 	      (catch 'top-level-catcher
 		(reinit)
-		(dolist (f *after-save-initializations*) (funcall f))
 		(environment-init)
+		(dolist (f *after-save-initializations*) (funcall f))
 		(when process-command-line
 		  (ext::process-command-strings))
 		(setf *editor-lisp-p* nil)
-- 
GitLab