X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=90e35e87726440e660ad6a018bbb361a8cf4637a;hb=667ec9d494530079bef28e8589dd0d3274b935ec;hp=5e330955df5c795d6254accd7d82b6497fb57894;hpb=dec94b039e8ec90baf21463df839a6181de606f6;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 5e33095..90e35e8 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -962,13 +962,13 @@
 ;;; Then if necessary, we look in "/etc/passwds" ("/etc/groups") which
 ;;; is really long and has to be fetched over the net.
 ;;;
+;;; The result is a SIMPLE-STRING or NIL.
+;;; 
 ;;; FIXME: Now that we no longer have lookup-group-name, we no longer need
 ;;; the GROUP-OR-USER argument.
 (defun get-group-or-user-name (group-or-user id)
-  #!+sb-doc
-  "Returns the simple-string user or group name of the user whose uid or gid
-   is id, or NIL if no such user or group exists. Group-or-user is either
-   :group or :user."
+  (declare (type (member :group :user) group-or-user))
+  (declare (type index id))
   (let ((id-string (let ((*print-base* 10)) (prin1-to-string id))))
     (declare (simple-string id-string))
     (multiple-value-bind (file1 file2)