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