anchor.diff:        (call-next-method)))
   
     (parser-var-let*
  -      ((parsed-simple-command-words (fset:empty-seq)))
  +      ((+parsed-simple-command-words+ (fset:empty-seq)))
       (call-next-method)))
   
   (defmethod expand-type ((class standard-class) unique-table)
  
positive.code:   (:import-from :shcl/core/fd-table
     #:receive-ref-counted-fd #:retained-fd-openat #:fd-wrapper-value
     #:with-dir-ptr-for-fd)
    (:import-from :shcl/core/posix
     #:fstat #:faccessat #:syscall-error #:do-directory-contents)
    (:import-from :shcl/core/posix-types #:o-rdonly #:st-mode #:x-ok #:at-eaccess)
  
negative.code:       (attachf result (executables-in-directory path)))
      (flatten-sequence result)))
  
  (defun all-builtin-commands ()
    (let ((result (fset:empty-set))
          (command-table (command-namespace-table *command-namespace*)))
      (fset:do-map (key value command-table)
        (declare (ignore value))
        (fset:adjoinf result key))
      result))
  
  (defun all-commands ()
    (concatenate-sequences (all-binary-commands) (all-builtin-commands)))
  
  (defmethod completion-suggestions concatenate-sequences
      ((desired (eql (find-class 'simple-word)))
       (token simple-word)
       context
       parser-vars)
    (multiple-value-bind (command-words valid-p) (fset:lookup parser-vars +parsed-simple-command-words+)
      (unless valid-p
        (return-from completion-suggestions))
  
  