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