CMUCL commit: src (code/filesys.lisp general-info/release-20b.txt)

[Raymond Toy]

    Date: Monday, June 7, 2010 @ 18:52:17
  Author: rtoy
    Path: /project/cmucl/cvsroot/src

Modified: code/filesys.lisp general-info/release-20b.txt

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(-)


Index: src/code/filesys.lisp
diff -u src/code/filesys.lisp:1.111 src/code/filesys.lisp:1.112
--- src/code/filesys.lisp:1.111	Mon Jun  7 18:10:11 2010
+++ src/code/filesys.lisp	Mon Jun  7 18:52:17 2010
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group at cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/filesys.lisp,v 1.111 2010-06-07 22:10:11 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/filesys.lisp,v 1.112 2010-06-07 22:52:17 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1035,7 +1035,7 @@
       (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)
Index: src/general-info/release-20b.txt
diff -u src/general-info/release-20b.txt:1.29 src/general-info/release-20b.txt:1.30
--- src/general-info/release-20b.txt:1.29	Mon Jun  7 18:10:12 2010
+++ src/general-info/release-20b.txt	Mon Jun  7 18:52:17 2010
@@ -77,9 +77,9 @@
     - 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