/[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.31.2.1 by pw, Tue Jun 23 11:22:26 1998 UTC revision 1.31.2.2 by dtc, Sun Jul 12 21:51:44 1998 UTC
# Line 163  Line 163 
163              (with-simple-restart (abort "Skip remaining initializations.")              (with-simple-restart (abort "Skip remaining initializations.")
164                (catch 'top-level-catcher                (catch 'top-level-catcher
165                  (reinit)                  (reinit)
                 (dolist (f *after-save-initializations*) (funcall f))  
166                  (environment-init)                  (environment-init)
167                    (dolist (f *after-save-initializations*) (funcall f))
168                  (when process-command-line                  (when process-command-line
169                    (ext::process-command-strings))                    (ext::process-command-strings))
170                  (setf *editor-lisp-p* nil)                  (setf *editor-lisp-p* nil)

Legend:
Removed from v.1.31.2.1  
changed lines
  Added in v.1.31.2.2

  ViewVC Help
Powered by ViewVC 1.1.5