anchor.diff:    (wstatus (:pointer :int))
     (options :int))
   
  +
   (defun waitpid (pid options)
  +  "This is a wrapper around the waitpid C function.
  +
  +The output parameters are returned as multiuple values."
     (with-foreign-object (status :int)
       (let ((pid-output (%waitpid pid status options)))
         (values pid-output (mem-ref status :int)))))
  
positive.code:   &rest)
  
  (defun posix-open (pathname flags &optional mode)
    (if mode
        (%open pathname flags mode-t mode)
        (%open pathname flags)))
  
negative.code:          ,(wrapper)))))
  
  (defun environment-iterator ()
    "Returns an iterator that emits the bindings in the current process
  environment.
  
  This function assumes that the process environment will not change
  during iteration."
    (let ((environment-pointer environ)
          (index 0))
      (make-iterator ()
  