Changeset 15330


Ignore:
Timestamp:
Apr 17, 2012, 1:25:54 PM (7 years ago)
Author:
gb
Message:

NATIVE-TO-PATHNAME: bind *DEFAULT-PATHNAME-DEFAULTS* to #P"", in case
it's already bound to something questionable.

See ticket:953.

File:
1 edited

Legend:

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

    r14662 r15330  
    103103;; Reverse of above, take native namestring and make a Lisp pathname.
    104104(defun native-to-pathname (name)
    105   (pathname (%path-std-quotes name nil
    106                               #+windows-target "*;"
    107                               #-windows-target "*;:")))
     105  ;; This assumes that NAME is absolute and fully qualified, and
     106  ;; that there'd be no benefit to (and some risk involved in)
     107  ;; effectively merging it with whatever random thing may be
     108  ;; in *DEFAULT-PATHNAME-DEFAULTS*.
     109  ;; I -think- that that's true for all callers of this function.
     110  (let* ((*default-pathname-defaults* #p""))
     111    (pathname (%path-std-quotes name nil
     112                                   #+windows-target "*;"
     113                                   #-windows-target "*;:"))))
    108114
    109115(defun native-to-directory-pathname (name)
Note: See TracChangeset for help on using the changeset viewer.