[Git][cmucl/cmucl][issue-132-ansi-test-rename-files] Rename NEW-FILE-NAME arg back to NEW-NAME

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch issue-132-ansi-test-rename-files at cmucl / cmucl


Commits:
189b1940 by Raymond Toy at 2022-09-27T16:20:25-07:00
Rename NEW-FILE-NAME arg back to NEW-NAME

This was an oversight from when I was doing some experiments on what
to return from RENAME-FILE.

- - - - -


1 changed file:

- src/code/filesys.lisp


Changes:

=====================================
src/code/filesys.lisp
=====================================
@@ -940,7 +940,7 @@
 
 ;;; Rename-File  --  Public
 ;;;
-(defun rename-file (file new-file-name)
+(defun rename-file (file new-name)
   "Rename File to have the specified New-Name.  If file is a stream
   open to a file, then the associated file is renamed.
 
@@ -953,7 +953,7 @@
 	 ;; First, merge NEW-FILE-NAME with *DEFAULT-PATHNAME-DEFAULTS* to
 	 ;; fill in the missing components and then merge again with
 	 ;; the FILE to get any missing components from FILE.
-	 (new-name (merge-pathnames (merge-pathnames new-file-name)
+	 (new-name (merge-pathnames (merge-pathnames new-name)
 				    file))
 	 (new-namestring (unix-namestring new-name nil)))
     (unless new-namestring



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/189b194089db3484d554ebbb32869e459a7f9f34

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/189b194089db3484d554ebbb32869e459a7f9f34
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20220927/9982061f/attachment-0001.html>