anchor.diff:  		  (pop-expression-stack))))
                ((eq syntax-type 'single-escape)
                 (setf char (read-char input-stream t nil t))
  -              (setf token (make-array 1
  -                                      :initial-element char
  -                                      :element-type 'character
  -                                      :adjustable t
  -                                      :fill-pointer 1))
  +	      (setf (schar buffer (incf index)) char)
                 (go 8))
                ((eq syntax-type 'multiple-escape)
  -              (setf token (make-array 0
  -                                      :element-type 'character
  -                                      :adjustable t
  -                                      :fill-pointer 0))
                 (go 9))
                ((eq syntax-type 'constituent)
                 ;; handle case conversion, etc
  -              (setf token (make-array 1
  -                                      :initial-element char
  -                                      :element-type 'character
  -                                      :adjustable t
  -                                      :fill-pointer 1))
  -              (go 8)))
  +	      (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.
  
positive.code:                      :stream input-stream :char char)))
       10
         ;; We have seen a complete token.  
         (if (equal token ".")
             (error 'single-dot-token)
             ;; build the token here
  	   (progn (setf token (make-array (1+ index) :element-type 'character))
  
negative.code: 	(read-with-position *read-with-position*)
  	(index -1)
  	char syntax-type token start)
      (declare (type (simple-string #.*buffer-size*) buffer)
  	     (type (integer -1 #.*buffer-size*) index))
      (tagbody
       1
         (when read-with-position
  