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