anchor.diff:    (when (equal 0 (fset:size *command-words*))
       (labels
           ((compatible-p (command)
  -           (starts-with-p command (shcl/core/lexer:simple-word-text token))))
  +           (starts-with-p command (simple-word-text token))))
         (filter-iterator (all-binary-commands) #'compatible-p))))
   
  -(defvar *empty-token* (make-instance 'shcl/core/lexer:simple-word :text ""))
  +(defvar *empty-token* (make-instance 'simple-word :text ""))
   
   (defun make-unique-table ()
     (make-hash-table :test 'equal))
  
positive.code: 
  This function returns an iterator of strings.  Each string represents
  text that could replace the token under point."
    (let ((token-iterator (shcl/core/lexer:token-iterator
                           (make-instance 'shcl/core/positional-stream:positional-input-stream
                                          :underlying-stream (make-string-input-stream input-text))
                           :readtable readtable))
          (tokens (make-extensible-vector))
          end-found)
      (do-iterator (token token-iterator)
        (let* ((token-start (shcl/core/positional-stream:position-record-offset
                             (shcl/core/lexer:token-position token)))
               (token-end (+ token-start (length (shcl/core/lexer:token-value token)))))
          (when (<= token-start cursor-point)
            (vector-push-extend token tokens))
          (when (>= token-end cursor-point)
  
negative.code:                ;; the dynamic context where the error was produced
                 (do-iterator (suggestion err-suggestions)
                   (fset:adjoinf suggestions suggestion))))))
        (add-hook '*intermediate-parse-error-hook* #'add-error)
        (handler-case
            (do-iterator (command command-iterator)
              (declare (ignore command)))
          (parse-failure (err)
            ;; This really should have already been handled, but just in
            ;; case...
            (add-error (parse-failure-error-object err))))
        suggestions)))
  
  (defun completion-suggestions-for-input (input-text cursor-point readtable)
  