anchor.diff:  
   (defgeneric expand-type (type unique-table))
   
  +(defun type-expander (&optional (unique-table (make-unique-table)))
  +  (lambda (type)
  +    (expand-type type unique-table)))
  +
   (defmethod expand-type :around (type unique-table)
     (when (unique-table-contains-p unique-table type)
       (return-from expand-type nil))
  
positive.code:       (error-p
         (shcl/core/parser:parser-error (wrap-expected-type value)))
        (t
         (vector-push-extend value *command-words*)
         (shcl/core/parser:parser-value value)))))
  
  (defvar *empty-iterator*
  
negative.code: (defmethod shcl/core/lexer:token-value ((sigil sigil-token))
    nil)
  
  (defun completion-suggestions-for-tokens (leading-tokens token-to-complete context)
    (let* ((*collect-tab-complete-info* t)
           (sigil-token (make-instance 'sigil-token))
           (command-iterator (shcl/core/shell-grammar:command-iterator
  