Skip to content
Snippets Groups Projects
Commit 01274f39 authored by rtoy's avatar rtoy
Browse files

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.
parent c5eff503
Branches
Tags
No related merge requests found
......@@ -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)
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment