anchor.diff:      (let ((count (%%sys-readlink path buf bufsize)))
         (values (foreign-string-to-lisp buf :count count)))))
   
  -(defsyscall ("unlink" %sys-unlink) :int
  +(defsyscall (%sys-unlink "unlink") :int
     (path filename-designator))
   
  -(defsyscall* ("chown" %sys-chown) :int
  +(defsyscall* (%sys-chown "chown") :int
     "Change ownership of a file."
     (path  filename-designator)
     (owner uid-t)
     (group uid-t))
   
  -(defsyscall* ("fchown" %sys-fchown) :int
  +(defsyscall* (%sys-fchown "fchown") :int
     "Change ownership of an open file."
     (fd    :int)
     (owner uid-t)
     (group uid-t))
   
  -(defsyscall* ("lchown" %sys-lchown) :int
  +(defsyscall* (%sys-lchown "lchown") :int
     "Change ownership of a file or symlink."
     (path  filename-designator)
     (owner uid-t)
     (group uid-t))
   
  -(defsyscall* ("chmod" %sys-chmod) :int
  +(defsyscall* (%sys-chmod "chmod") :int
     (path filename-designator)
     (mode mode-t))
   
  -(defsyscall* ("fchmod" %sys-fchmod) :int
  +(defsyscall* (%sys-fchmod "fchmod") :int
     (fd   :int)
     (mode mode-t))
   
  
positive.code: ;;; Files
  ;;;-------------------------------------------------------------------------
  
  (defsyscall* ("open" %%sys-open) :int
    (pathname filename-designator)
    (flags    :int)
    (mode     mode-t))
  
negative.code: ;;; User info
  ;;;-------------------------------------------------------------------------
  
  (defcfun (%%sys-getpwuid-r "getpwuid_r")
      (return-wrapper :int :error-predicate (lambda (x) (not (zerop x)))
                      :error-generator signal-posix-error-from-return-value)
    (uid     uid-t)
  