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