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:

 		 :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