Skip to content
Snippets Groups Projects
Commit 7be2343e authored by rtoy's avatar rtoy
Browse files

RENAME-FILE should create the defaulted-new-name from merging new-name

with the original filespec, not the truename of the filespec.  Also
fixes the issue where defaulted-new-name should be an LPN if new-name
is.

From Madhu, cmucl-imp, 2008/06/01.
parent f466d230
No related branches found
No related tags found
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.104 2007/09/10 16:25:00 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.105 2008/06/18 15:57:01 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -929,7 +929,7 @@
file, then the associated file is renamed."
(let* ((original (truename file))
(original-namestring (unix-namestring original t))
(new-name (merge-pathnames new-name original))
(new-name (merge-pathnames new-name file))
(new-namestring (unix-namestring new-name nil)))
(unless new-namestring
(error 'simple-file-error
......
......@@ -28,6 +28,12 @@ New in this release:
- Fix merging of version in MAKE-PATHNAME. If the pathname name
is given, the version is not affected by the version in the
default pathname.
- RENAME-FILE now creates defaulted-new-name from merging new-name
with the original filespec. This is an incompatible change from
the previous version which created defaulted-new-name from
merging the new-name with the truename of filespec. Also, a
logical pathname should be returned if new-name is a logical
pathname.
* Bugfixes:
- Compiler can now derive the rank of an array, even if the array
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment