/[cmucl]/src/code/filesys.lisp
ViewVC logotype

Diff of /src/code/filesys.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by ram, Thu Aug 22 16:03:37 1991 UTC revision 1.12 by ram, Tue Sep 3 20:44:02 1991 UTC
# Line 548  Line 548 
548    
549  ;;; User-Homedir-Pathname  --  Public  ;;; User-Homedir-Pathname  --  Public
550  ;;;  ;;;
551  ;;;    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.  
552  ;;;  ;;;
553  (defun user-homedir-pathname (&optional host)  (defun user-homedir-pathname (&optional host)
554    "Returns the home directory of the logged in user as a pathname.    "Returns the home directory of the logged in user as a pathname.
555    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:\""  
556    (declare (ignore host))    (declare (ignore host))
557    (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"))))))  
558    
559  ;;; File-Write-Date  --  Public  ;;; File-Write-Date  --  Public
560  ;;;  ;;;

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5