diff --git a/code/save.lisp b/code/save.lisp index aed491347d7e71463992180c95e091fd6d4d04be..7a41beee35d8b6a01eb39dbaa26db43f7cd81f4d 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