anchor.diff:                 (getchar scanner)
                  (scan-next-token scanner))
                 (otherwise
  -               (if (or (alphanumericp ch) (char= ch #\.))
  +               (if (unquoted-string-char-p ch)
                      (scan-unquoted-string scanner)
                      (progn
                        (getchar scanner) ; let's eat it so that error recovery skips it.
  
positive.code:               ((#\/)
                 (getchar scanner)
                 (if (char= #\* (nextchar scanner))
                     (progn
                       (getchar scanner) 
                       (loop
                         :named :eat-comment
  
negative.code:                                               :initial-element #\space
                                                :adjustable t :fill-pointer 0)
                     :for ch = (getchar scanner)
                     :while (unquoted-string-char-p ch)
                     :do (vector-push-extend ch string (length string))
                     :finally (progn
                                (ungetchar scanner ch)
  