anchor.diff:              (values name passwd gid))))))
   
   (defentrypoint %sys-getgrgid (gid)
  -  "Gets a group-entry, by group id. (reentrant)"
  +  "Gets a group-entry, by group id (reentrant)."
     (funcall-getgr #'%%sys-getgrgid-r gid))
   
   (defentrypoint %sys-getgrnam (name)
  -  "Gets a group-entry, by group name. (reentrant)"
  +  "Gets a group-entry, by group name (reentrant)."
     (funcall-getgr #'%%sys-getgrnam-r name))
  
positive.code:             (values name passwd uid gid gecos dir shell))))))
  
  (defentrypoint %sys-getpwuid (uid)
    "Gets the password-entry of a user, by user id. (reentrant)"
    (funcall-getpw #'%%sys-getpwuid-r uid))
  
  (defentrypoint %sys-getpwnam (name)
    "Gets the password-entry of a user, by username. (reentrant)"
    (funcall-getpw #'%%sys-getpwnam-r name))
  
  
negative.code:   (namelen size-t))
  
  (defentrypoint %sys-getdomainname ()
    "Return the domain name of the current machine."
    (with-foreign-pointer-as-string ((cstr size) 256)
      (%%sys-getdomainname cstr size)))
  
  