Changeset 14020


Ignore:
Timestamp:
Jul 23, 2010, 3:19:54 AM (9 years ago)
Author:
rme
Message:

In FULL-PATHNAME, get a suitable device pathname component from
MAC-HOME-DIRECTORY if none is present in the passed-in path.

File:
1 edited

Legend:

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

    r13675 r14020  
    684684                                      (return-from full-pathname nil)
    685685                                      (error condition)))))
    686          (dir (%pathname-directory path)))
    687     (if (eq (car dir) :absolute)
    688       path
    689       (cons-pathname (absolute-directory-list dir)
    690                        (%pathname-name path)
    691                        (%pathname-type path)
    692                        (pathname-host path)
    693                        (pathname-version path)))))
     686         (dir (%pathname-directory path))
     687         (device #+windows-target
     688                 (or (pathname-device path)
     689                     (pathname-device (mac-default-directory)))
     690                 #-windows-target
     691                 nil))
     692    (cons-pathname (if (eq (car dir) :absolute)
     693                     dir
     694                     (absolute-directory-list dir))
     695                   (%pathname-name path)
     696                   (%pathname-type path)
     697                   (pathname-host path)
     698                   (pathname-version path)
     699                   device)))
    694700
    695701
Note: See TracChangeset for help on using the changeset viewer.