anchor.diff:    (:import-from :shcl/core/posix-types #:o-rdonly #:st-mode #:x-ok #:at-eaccess)
     (:import-from :shcl/core/support #:s-isdir)
     (:import-from :shcl/core/environment #:colon-list-iterator #:$path)
  +  (:import-from :shcl/core/expand
  +   #:compute-expansion-pipeline #:run-expansion-pipeline
  +   #:wild-path-has-wild-component-p)
     (:import-from :shcl/core/positional-stream
      #:positional-input-stream #:position-record-offset)
     (:import-from :shcl/core/working-directory #:get-fd-current-working-directory)
  
positive.code:   (:use :common-lisp :shcl/core/utility :shcl/core/iterator)
    (:import-from :shcl/core/sequence
     #:attachf #:empty-p #:concatenate-sequences #:eager-flatmap-sequence
     #:do-while-popf #:eager-map #:eager-filter #:flatten-sequence #:walk)
    (:import-from :shcl/core/advice #:define-advice)
    (:import-from :shcl/core/shell-grammar
     #:parse-simple-command #:parse-simple-command-word #:commands-for-tokens)
  
negative.code: (defun all-commands ()
    (concatenate-sequences (all-binary-commands) (all-builtin-commands)))
  
  (defun shell-quote (string context)
    (declare (ignore context))
    ;; It makes ugly strings... but its good enough for now!
    (with-output-to-string (out)
      (write-char #\' out)
      (loop :for char :across string :do
        (if (equal char #\' )
            (write-string "'\''" out)
            (write-char char out)))
      (write-char #\' out)))
  
  (defmethod completion-suggestions concatenate-sequences
      ((desired (eql (find-class 'simple-word)))
       (token simple-word)
  