Changeset 14344 for trunk/source/level-1


Ignore:
Timestamp:
Oct 8, 2010, 6:35:26 PM (9 years ago)
Author:
rme
Message:

Don't call truename in user-homedir-pathname.

If we do, we choke when *default-pathname-defaults* is non-empty.

See http://groups.google.com/group/comp.lang.lisp/msg/4339e788b4039faa

(The use of truename was introduced back in r10426.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-pathnames.lisp

    r14324 r14344  
    625625  (declare (ignore host))
    626626  (let* ((native (get-user-home-dir (getuid)))
    627          (pathname (and native
    628                         (truename (native-to-directory-pathname native)))))
     627         (pathname (and native (native-to-directory-pathname native))))
    629628    (if (and pathname (eq :absolute (car (pathname-directory pathname))))
    630629      pathname
Note: See TracChangeset for help on using the changeset viewer.