anchor.diff:    ;; already at the input position or if we are rescanning. This is so
     ;; we can support fancy accept methods such as the one for
     ;; `command-or-form'
  -  (unless (or (stream-rescanning-p stream)
  -              (= (stream-scan-pointer stream) (input-position stream)))
  +  (unless (stream-rescanning-p stream)
       (call-next-method)
       ;; We skip ahead of any noise strings to put us past the
       ;; prompt. This is safe, because the noise strings are to be
  
positive.code:               do (let ((gesture (buffer-object buffer scan-pointer)))
                     ;; Skip noise strings.
                     (cond ((typep gesture 'noise-string)
                            (incf scan-pointer))
                           ((and (not peek-p)
                                 (typep gesture 'accept-result))
                            (incf scan-pointer)
  
negative.code:                           (unless peek-p
                              (incf scan-pointer))
                            (return-from stream-read-gesture gesture))
                           (t (incf scan-pointer)
                              (setf last-was-noisy nil)))))
             (unless last-was-noisy ; This prevents double-prompting.
               (setf (stream-rescanning stream) nil))
             (when activation-gesture
               (return-from stream-read-gesture
                 (prog1 activation-gesture
  