anchor.diff:  	;; Last-byte, last-line, last-column all refer to the last character of the symbol we've been scanning.
   	;; Char is the first character past that position.  
   	;; We put char back into the stream, and tell our caller the last-xxx values.
  -	;; Those become the initial values in the next call here, and the char we're pushing here
  -	;; increments them when it is popped then.
  +	;; Those become the initial values in the next call here, and they are 
  +	;; incremented when the char we're pushing here is then popped.
   	(local-unread-char char)
   	;;
          terminate-word-symbol-with-eof
  
positive.code: 			 (return-values :EOF nil) 
  			 () 
  			 (go start-extended-comment))
  	;;
  	(look-for-ad-hoc-tokens char char-code)
  	;; 
  	(case (svref whitespace-table char-code)
  
negative.code: 	;; Last-byte, last-line, last-column all refer to the last character of the number we've been scanning.
  	;; Char is the first character past that position.  
  	;; We put char back into the stream, and tell our caller the last-xxx values.
  	;; Those become the initial values in the next call here, and they are 
  	;; incremented when the char we're pushing here is then popped.
  	(local-unread-char char)
  	;;
         terminate-number-with-eof
  