anchor.diff:                       :stream input-stream :char char)))
        10
          ;; We have seen a complete token.  
  -       (if (equal token ".")
  +       (if (and (= index 0)
  +		(eql (schar buffer 0) #\.))
              (error 'single-dot-token)
              ;; build the token here
   	   (progn (setf token (make-array (1+ index) :element-type 'character))
  
positive.code: 	(read-with-position *read-with-position*)
  	(index -1)
  	char syntax-type token start)
      (declare (type (simple-string #.*buffer-size*) buffer))
      (tagbody
       1
         (when read-with-position
  
negative.code: 		  (pop-expression-stack))))
               ((eq syntax-type 'single-escape)
                (setf char (read-char input-stream t nil t))
  	      (setf (schar buffer (incf index)) char)
                (go 8))
               ((eq syntax-type 'multiple-escape)
                (go 9))
               ((eq syntax-type 'constituent)
                ;; handle case conversion, etc
  	      (setf (schar buffer (incf index)) char)
  	      (go 8)))
       8
         ;; In this state, we are accumulating a token, and an even
         ;; number of multiple escape characters have been seen.
  