[Git][cmucl/cmucl][issue-130-file-author-in-c] Apply 1 suggestion(s) to 1 file(s)

[Raymond Toy (@rtoy)]

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/8a90499aa2f4c569d8d32da2d28a71bc27894c09

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/8a90499aa2f4c569d8d32da2d28a71bc27894c09
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/20220905/a05fa138/attachment-0001.html>