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:     (return-from parse-simple-command-word
        (call-next-method)))
  
    (assert (parser-var 'parsed-simple-command-words))
    (let ((return-values (multiple-value-list (call-next-method))))
      (attachf (parser-var 'parsed-simple-command-words) (car return-values))
      (values-list return-values)))
  
  (defgeneric parse-error-involves-sigil-token-p (err sigil-token))
  
negative.code: 
  (defvar *collect-tab-complete-info* nil)
  
  (defconstant +parsed-simple-command-words+ '+parsed-simple-command-words+)
  
  (define-advice parse-simple-command
      :around tab-complete
      ()
  