diff --git a/code/filesys.lisp b/code/filesys.lisp index f90cb54391a3b479a87e1b7dc6a82872c52459e6..ad3128846fa19d1036a8cd1a51c2044ce19f7895 100644 --- a/code/filesys.lisp +++ b/code/filesys.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/filesys.lisp,v 1.11 1991/08/22 16:03:37 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.12 1991/09/03 20:44:02 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -548,24 +548,13 @@ ;;; User-Homedir-Pathname -- Public ;;; -;;; If the user wants a meaningful homedir, she has to define Home:. -;;; Someday, login may do this for us. Since we must always return something, -;;; we just return Default: if it isn't defined. +;;; Return Home:, which is set up for us at initialization time. ;;; (defun user-homedir-pathname (&optional host) "Returns the home directory of the logged in user as a pathname. - This is obtained from the logical name \"home:\". If this is not defined, - then we return \"default:\"" + This is obtained from the logical name \"home:\"." (declare (ignore host)) - (let ((home (cdr (assoc :home *environment-list* :test #'eq)))) - (if home - (pathname (if (string-equal home "/") "/" - (concatenate 'simple-string home "/"))) - (let ((expansion (if (search-list "home:") - (resolve-search-list "home" t)))) - (if expansion - (car expansion) - (make-pathname :device "default")))))) + #p"home:") ;;; File-Write-Date -- Public ;;;