anchor.diff:       (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)))))
  +             (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
  
positive.code:   (:report
     (lambda (c s)
       (format s "Replacing existing command with name ~S"
               (redefining-command-name c)))))
  
  (defun install-command (name command &optional (priority (command-priority command)))
    (when (find #\/ name)
      (warn 'confusing-command-name :name name))
    (let* ((table (command-namespace-table *command-namespace*))
  
negative.code:   (:import-from :alexandria)
    (:import-from :closer-mop)
    (:import-from :shcl/core/shell-lambda
                  #:command-error #:shell-lambda #:handle-command-errors
                  #:wrap-errors)
    (:import-from :shcl/core/fd-table
                  #:with-fd-streams #:with-private-fds #:linearize-fd-bindings
                  #:fd-wrapper-value)
  