/[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.9 by ram, Fri Aug 30 16:45:58 1991 UTC revision 1.10 by ram, Tue Sep 3 20:44:46 1991 UTC
# Line 90  Line 90 
90                *environment-list*))))                *environment-list*))))
91    (setf (search-list "default:") (list (default-directory)))    (setf (search-list "default:") (list (default-directory)))
92    (setf (search-list "path:") (parse-unix-search-list :path))    (setf (search-list "path:") (parse-unix-search-list :path))
93      (setf (search-list "home:")
94            (or (parse-unix-search-list :home)
95                (list (default-directory))))
96    
97    (setf (search-list "library:")    (setf (search-list "library:")
98          (or (parse-unix-search-list :cmucllib)          (or (parse-unix-search-list :cmucllib)
99              '("/usr/misc/.cmucl/lib/"))))              '("/usr/misc/.cmucl/lib/"))))
# Line 170  Line 174 
174                            (or (cmd-switch-value cl-switch)                            (or (cmd-switch-value cl-switch)
175                                (car (cmd-switch-words cl-switch))))))                                (car (cmd-switch-words cl-switch))))))
176            (if name            (if name
177                (load (merge-pathnames name (user-homedir-pathname))                (load (merge-pathnames name #p"home:") :if-does-not-exist nil)
                     :if-does-not-exist nil)  
178                (or (load "home:init" :if-does-not-exist nil)                (or (load "home:init" :if-does-not-exist nil)
179                    (load "home:.cmucl-init" :if-does-not-exist nil))))))                    (load "home:.cmucl-init" :if-does-not-exist nil))))))
180      (when enable-gc      (when enable-gc

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5