Ignore:
Timestamp:
Mar 6, 2013, 8:42:50 PM (7 years ago)
Author:
gb
Message:

Recent changes from trunk.

File:
1 edited

Legend:

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

    r15606 r15755  
    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.