Raymond Toy pushed to branch issue-135-unix-namestring-dot at cmucl / cmucl
Commits: ef2a1fc3 by Raymond Toy at 2022-10-19T13:44:15-07:00 Remove special case from file-author
file-author had a special case when `(unix-namestring ".")` returned "". This doesn't happen anymore, so remove the special case. `(file-author ".")` returns the expected author.
- - - - -
1 changed file:
- src/code/filesys.lisp
Changes:
===================================== src/code/filesys.lisp ===================================== @@ -1079,11 +1079,6 @@ optionally keeping some of the most recent old versions." :pathname file :format-control (intl:gettext "~S doesn't exist.") :format-arguments (list file))) - ;; unix-namestring converts "." to "". Convert it back to - ;; "." so we can stat the current directory. (Perhaps - ;; that's a bug in unix-namestring?) - (when (zerop (length name)) - (setf name ".")) (let (author) (unwind-protect (progn
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef2a1fc306f966f78c8663b8...