GitLab

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.

 ;;; 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.

 	 ;; 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

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

Commits:

1 changed file:

Changes: