diff --git a/code/filesys.lisp b/code/filesys.lisp index abdd5eea42557276d6fddd94aeede1d5b9af0986..0e4ed7eafc4469f50fd3df4f054bd9f0fb627976 100644 --- a/code/filesys.lisp +++ b/code/filesys.lisp @@ -6,7 +6,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.111 2010/06/07 22:10:11 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.112 2010/06/07 22:52:17 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -1035,7 +1035,7 @@ optionally keeping some of the most recent old versions." (error 'simple-file-error :pathname file :format-control (intl:gettext "Bad place for a wild pathname.")) - (let ((name (unix-namestring file t))) + (let ((name (unix-namestring (merge-pathnames file) t))) (when name (multiple-value-bind (res dev ino mode nlink uid gid rdev size atime mtime) diff --git a/general-info/release-20b.txt b/general-info/release-20b.txt index c2cb3a58fd8c314a7348793ff43f0ac0e93e95fc..38d3cffe0a89f62653abe5bac4a9d215d50e0e44 100644 --- a/general-info/release-20b.txt +++ b/general-info/release-20b.txt @@ -77,9 +77,9 @@ New in this release: - DEFINE-COMPILER-MACRO no longer sets the wrong block name for SETF functions. We also check that the name is a valid function name; an error is signaled if it's invalid. - - DELETE-FILE, ENSURE-DIRECTORIES-EXIST, FILE-AUTHOR, and OPEN now - merge the given pathname with *DEFAULT-PATHNAME-DEFAULTS* as - required by CLHS sec 19.2.3. + - DELETE-FILE, ENSURE-DIRECTORIES-EXIST, FILE-AUTHOR, + FILE-WRITE-DATE, and OPEN now merge the given pathname with + *DEFAULT-PATHNAME-DEFAULTS* as required by CLHS sec 19.2.3. * Bugfixes: - On Unicode builds, printing of '|\|| and '|`| was incorrect