Skip to content
Snippets Groups Projects
Commit 9fca861a authored by ram's avatar ram
Browse files

Make user-homedir-pathname just return home:.

parent c377087d
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -548,24 +548,13 @@
;;; User-Homedir-Pathname -- Public ;;; User-Homedir-Pathname -- Public
;;; ;;;
;;; If the user wants a meaningful homedir, she has to define Home:. ;;; Return Home:, which is set up for us at initialization time.
;;; Someday, login may do this for us. Since we must always return something,
;;; we just return Default: if it isn't defined.
;;; ;;;
(defun user-homedir-pathname (&optional host) (defun user-homedir-pathname (&optional host)
"Returns the home directory of the logged in user as a pathname. "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, This is obtained from the logical name \"home:\"."
then we return \"default:\""
(declare (ignore host)) (declare (ignore host))
(let ((home (cdr (assoc :home *environment-list* :test #'eq)))) #p"home:")
(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"))))))
;;; File-Write-Date -- Public ;;; File-Write-Date -- Public
;;; ;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment