anchor.diff:      (case output
         ((t)
          (run-program/ command :ignore-error-status ignore-error-status))
  -      ((:interactively)
  -       (run-program/interactively
  -        command :ignore-error-status ignore-error-status))
         (otherwise
          (run-program/
           command :ignore-error-status ignore-error-status :output output)))))
  
positive.code:         (ecase (or backend *backend*)
            #+(and sbcl sb-thread unix)
            ((:sbcl)
             (sbcl-run
              spec :input (eq :output :interactively) :output output :error t
              :ignore-error-status ignore-error-status))
            ((:auto)
             (run-spec spec :ignore-error-status ignore-error-status :output output))))))
      (string
  
negative.code: (in-package :inferior-shell)
  
  (defvar *backend* :auto)
  
  (defun on-host-spec (host spec)
    (if (current-host-name-p host)
  