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