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/189b194089db3484d554ebbb...