/[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.29 by ram, Sat Jan 18 14:30:54 1997 UTC revision 1.30 by pw, Wed Feb 5 16:15:59 1997 UTC
# Line 162  Line 162 
162                  (reinit)                  (reinit)
163                  (dolist (f *after-save-initializations*) (funcall f))                  (dolist (f *after-save-initializations*) (funcall f))
164                  (environment-init)                  (environment-init)
                 (when site-init  
                   (load site-init :if-does-not-exist nil :verbose nil))  
165                  (when process-command-line                  (when process-command-line
166                    (ext::process-command-strings))                    (ext::process-command-strings))
167                  (setf *editor-lisp-p* nil)                  (setf *editor-lisp-p* nil)
# Line 173  Line 171 
171                                      :test #'(lambda (x y)                                      :test #'(lambda (x y)
172                                                (declare (simple-string x y))                                                (declare (simple-string x y))
173                                                (string-equal x y)))))                                                (string-equal x y)))))
174                      (when site-init
175                        (load site-init :if-does-not-exist nil :verbose nil))
176                    (when (and process-command-line (find-switch "edit"))                    (when (and process-command-line (find-switch "edit"))
177                      (setf *editor-lisp-p* t))                      (setf *editor-lisp-p* t))
178                    (when (and load-init-file                    (when (and load-init-file

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

  ViewVC Help
Powered by ViewVC 1.1.5