/[cmucl]/src/code/save.lisp
ViewVC logotype

Diff of /src/code/save.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by wlott, Thu Mar 10 16:31:01 1994 UTC revision 1.23 by ram, Fri Sep 30 15:18:57 1994 UTC
# Line 153  Line 153 
153        (purify :root-structures root-structures        (purify :root-structures root-structures
154                :environment-name environment-name)                :environment-name environment-name)
155        (gc))        (gc))
156      (dolist (f *before-save-initializations*) (funcall f))
157    (flet    (flet
158        ((restart-lisp ()        ((restart-lisp ()
159           (catch '%end-of-the-world           (catch '%end-of-the-world
160             (with-simple-restart (abort "Skip remaining initializations.")             (with-simple-restart (abort "Skip remaining initializations.")
161               (catch 'top-level-catcher               (catch 'top-level-catcher
162                 (reinit)                 (reinit)
                (dolist (f *before-save-initializations*) (funcall f))  
163                 (dolist (f *after-save-initializations*) (funcall f))                 (dolist (f *after-save-initializations*) (funcall f))
164                 (environment-init)                 (environment-init)
165                 (when site-init                 (when site-init

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5