anchor.diff:  		char char-code
   		(termination-warning char char-code "partial non-word character literal" "#\\" ", which is eof")
   		(termination-warning char char-code "partial non-word character literal" "#\\" "")
  -		(termination-warning char char-code "partial non-word character literal" "#\\" ", which starts of an extended comment")
  +		(termination-warning char char-code "partial non-word character literal" "#\\" ", which starts an extended comment")
   		)
   	       (case char
   		 (#\a (return-values :CHARACTER #\bel       ))
  
positive.code: 						  comment-quads
  						  ad-hoc-table
  						  ad-hoc-strings)
  	      (when (eq type :EOF)
  		(return nil))
  	      (push (list (or (and (or (eq type :AD-HOC) 
  				       (eq type :WORD-SYMBOL)
  				       (eq type :NON-WORD-SYMBOL))
  				   (gethash value ht-ad-hoc-types))
  			      type)
  			  value 
  			  (list first-byte first-line first-column) 
  			  (list last-byte  last-line  last-column)) 
  		    tokens)
  	      (setq pre-byte   last-byte 
  		    pre-line   last-line 
  		    pre-column last-column)))))
  
negative.code: 	  (otherwise                         (go unrecognized-char-while-scanning-word-symbol)))
  
         unrecognized-char-while-scanning-word-symbol
  	(when (eq char #\#) ; new hack for # inside URI's...
  	  (return-values-using-prior-last :WORD-SYMBOL-TERMINATED-BY-HASH (coerce (nreverse token-chars) 'string)))
  	(termination-warning char char-code "word symbol" "" ", which is unrecognized")
  	(go terminate-word-symbol)
  	;;
  