From add59f7a8840eb6803da53c818f32cb2cc9a4c16 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 3 Sep 1991 20:44:46 +0000 Subject: [PATCH] Changed ENVIRONMENT-INIT to initialize "home:". --- code/save.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/code/save.lisp b/code/save.lisp index f87634b9c..29a33875c 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.9 1991/08/30 16:45:58 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.10 1991/09/03 20:44:46 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -90,6 +90,10 @@ *environment-list*)))) (setf (search-list "default:") (list (default-directory))) (setf (search-list "path:") (parse-unix-search-list :path)) + (setf (search-list "home:") + (or (parse-unix-search-list :home) + (list (default-directory)))) + (setf (search-list "library:") (or (parse-unix-search-list :cmucllib) '("/usr/misc/.cmucl/lib/")))) @@ -170,8 +174,7 @@ (or (cmd-switch-value cl-switch) (car (cmd-switch-words cl-switch)))))) (if name - (load (merge-pathnames name (user-homedir-pathname)) - :if-does-not-exist nil) + (load (merge-pathnames name #p"home:") :if-does-not-exist nil) (or (load "home:init" :if-does-not-exist nil) (load "home:.cmucl-init" :if-does-not-exist nil)))))) (when enable-gc -- GitLab