anchor.diff:    (cmd :int)
     &rest)
   
  -(define-c-wrapper (%close "close") (:int #'not-negative-1-p)
  +(define-c-wrapper (posix-close "close") (:int #'not-negative-1-p)
     (fd :int))
  -
  -(defun posix-close (fd)
  -  (%close fd))
   
   (define-c-wrapper (%pipe "pipe") (:int #'not-negative-1-p)
     (fildes (:pointer :int)))
   
   (defun pipe ()
  +  "This is a wrapper around the pipe C function.
  +
  +The pipe file descriptors are returned as multiple values."
     (with-foreign-object (fildes :int 2)
       (%pipe fildes)
       (values
  
positive.code:   (wstatus (:pointer :int))
    (options :int))
  
  (defun waitpid (pid options)
    (with-foreign-object (status :int)
      (let ((pid-output (%waitpid pid status options)))
        (values pid-output (mem-ref status :int)))))
  
negative.code:   &rest)
  
  (defun openat (dirfd pathname flags &optional mode)
    "This is a wrapper around the openat C function."
    (if mode
        (%openat dirfd pathname flags mode-t mode)
        (%openat dirfd pathname flags)))
  