From 7be2343e99b3cda6a9e9b9ebf9271c63e68de302 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Wed, 18 Jun 2008 15:57:02 +0000 Subject: [PATCH] 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. --- code/filesys.lisp | 4 ++-- general-info/release-19f.txt | 6 ++++++ 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/code/filesys.lisp b/code/filesys.lisp index dcf47dab0..dadb0ee55 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.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 diff --git a/general-info/release-19f.txt b/general-info/release-19f.txt index 893215cfd..ebbbab5bf 100644 --- a/general-info/release-19f.txt +++ b/general-info/release-19f.txt @@ -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 -- GitLab