anchor.diff:        (values))))
   
   (defun lookup-command (name)
  +  "Find the object that will handle invocation of the named command.
  +
  +See `install-command'."
     (multiple-value-bind (value found) (fset:lookup (command-namespace-table *command-namespace*) name)
       (if (and found (not (fset:empty? value)))
           (nth-value 1 (fset:at-rank value 0))
  
positive.code:   (:import-from :alexandria)
    (:import-from :closer-mop)
    (:import-from :shcl/core/shell-lambda
                  #:command-error #:shell-lambda #:handle-command-errors)
    (:import-from :shcl/core/fd-table
                  #:with-fd-streams #:with-private-fds #:linearize-fd-bindings
                  #:fd-wrapper-value)
  
negative.code:      (format s "The given command name (~S) will produce confusing
  results.  Users normally expect that commands containing a slash will
  invoke a binary instead of a builtin."
               (confusing-command-name-name c))))
    (:documentation
     "A condition signaled when a command name is sure to confuse
  people."))
  
  (define-condition redefining-command (warning)
    ((old-command
  