Raymond Toy pushed to branch issue-130-file-author-in-c at cmucl / cmucl
Commits: 8a90499a by Carl S. Shapiro at 2022-09-05T04:52:30+00:00 Apply 1 suggestion(s) to 1 file(s) - - - - -
1 changed file:
- src/code/filesys.lisp
Changes:
===================================== src/code/filesys.lisp ===================================== @@ -1061,29 +1061,6 @@ optionally keeping some of the most recent old versions."
;;; File-Author -- Public ;;; -#+nil -(defun file-author (file) - "Returns the file author as a string, or nil if the author cannot be - determined. Signals an error of type file-error if file doesn't exist, - or file is a wild pathname." - (if (wild-pathname-p file) - (error 'simple-file-error - :pathname file - :format-control (intl:gettext "Bad place for a wild pathname.")) - (let ((name (unix-namestring (merge-pathnames file) t))) - (unless name - (error 'simple-file-error - :pathname file - :format-control (intl:gettext "~S doesn't exist.") - :format-arguments (list file))) - (multiple-value-bind (winp dev ino mode nlink uid) - (unix:unix-stat name) - (declare (ignore dev ino mode nlink)) - (when winp - (let ((user-info (unix:unix-getpwuid uid))) - (when user-info - (unix:user-info-name user-info)))))))) - (defun file-author (file) "Returns the file author as a string, or nil if the author cannot be determined. Signals an error of type file-error if file doesn't exist,
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/8a90499aa2f4c569d8d32da2...