Changeset 9788


Ignore:
Timestamp:
Jun 19, 2008, 2:52:46 AM (11 years ago)
Author:
gb
Message:

If they don't care, why should we ?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-pathnames.lisp

    r9117 r9788  
    645645(defun user-homedir-pathname (&optional host)
    646646  "Return the home directory of the user as a pathname."
    647   (declare (ignore host)) 
    648   (let* ((native (get-user-home-dir (getuid))))
     647  (declare (ignore host))
     648  (let* ((native (or #+ccl-0711 (getenv "HOME")
     649                     (get-user-home-dir (getuid)))))
    649650    (if native
    650651      (native-to-directory-pathname native))))
Note: See TracChangeset for help on using the changeset viewer.