[Git][cmucl/cmucl][issue-135-unix-namestring-dot] Remove special case from file-author

[Raymond Toy (@rtoy)]

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/ef2a1fc306f966f78c8663b8ca3b730593ea5b87

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef2a1fc306f966f78c8663b8ca3b730593ea5b87
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20221019/78a4eb76/attachment-0001.html>