From 9fca861a14d15680a72fa91b0651cb0c7a83d6e7 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 3 Sep 1991 20:44:02 +0000 Subject: [PATCH] Make user-homedir-pathname just return home:. --- code/filesys.lisp | 19 ++++--------------- 1 file changed, 4 insertions(+), 15 deletions(-) diff --git a/code/filesys.lisp b/code/filesys.lisp index f90cb5439..ad3128846 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 ;;; -- GitLab