anchor.diff:                        (isys:close (pipe-rd perr))
                         (isys:dup2 (pipe-wr perr) +STDERR-FILENO+)
                         (isys:close (pipe-wr perr)))))
  +
                  
                  (isys:execv "/bin/sh" %agrs))
               (otherwise
  
positive.code:                                       stderr)))
                (pid (isys:fork)))
            (case pid
              (0 (when stdin
                   (isys:close (pipe-wr pin))
                   (isys:dup2 (pipe-rd pin) +STDIN-FILENO+)
                   (isys:close (pipe-rd pin)))
  
negative.code:            #:process-output
             #:process-error
             #:process-close
             #:process-poll
             #:process-wait
             #:process-kill
             #:process-input-close
  