Changeset 15744


Ignore:
Timestamp:
Feb 23, 2013, 8:57:49 PM (6 years ago)
Author:
gz
Message:

Don't merge with *default-pathname-defaults* in native-translated-namestring. Fixes ticket:953

File:
1 edited

Legend:

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

    r15606 r15744  
    8282
    8383(defun native-translated-namestring (path)
    84   (let ((name (translated-namestring path)))
     84  (let ((name (let ((*default-pathname-defaults* #P""))
     85                (translated-namestring path))))
    8586    ;; Check that no quoted /'s
    8687    (when (%path-mem-last-quoted "/" name)
Note: See TracChangeset for help on using the changeset viewer.