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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/189b194089db3484d554ebbb... You're receiving this email because of your account on gitlab.common-lisp.net.