From 01274f3970af84f95eb2e11482aec5867bd8a776 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Mon, 7 Jun 2010 22:52:17 +0000 Subject: [PATCH] code/filesys.lisp: o FILE-WRITE-DATE merges the filename with *DEFAULT-PATHNAME-DEFAULTS*, as required by CLHS sec 19.2.3. general-info/release-20b.txt: o Update. --- code/filesys.lisp | 4 ++-- general-info/release-20b.txt | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/code/filesys.lisp b/code/filesys.lisp index abdd5eea4..0e4ed7eaf 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 c2cb3a58f..38d3cffe0 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 -- GitLab