anchor.diff:  	(return-values-using-prior-last :WORD-SYMBOL (coerce (nreverse token-chars) 'string))
   	;;
          terminate-word-symbol-with-continue-non-word-symbol ; weird
  -	(termination-warning char char-code "word symbol" "" ", whichcan continue but not start a non-word symbol")
  +	(termination-warning char char-code "word symbol" "" ", which can continue but not start a non-word symbol")
   	(go terminate-word-symbol)
   	;;
          terminate-word-symbol-with-start-word-symbol
  
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: 			 hex-char-2 hex-char-code-2
                  	 (termination-warning hex-char-2 hex-char-code-2 "partial hex character literal" (format nil "#\\x~A" hex-char-1) ", which is eof")
  			 (termination-warning hex-char-2 hex-char-code-2 "partial hex character literal" (format nil "#\\x~A" hex-char-1) "")
  			 (termination-warning hex-char-2 hex-char-code-2 "partial hex character literal" (format nil "#\\x~A" hex-char-1) ", which starts an extended comment")
  			 )
  			(let ((high-nibble (convert-hex-char-to-number hex-char-1))
  			      (low-nibble  (convert-hex-char-to-number hex-char-2)))
  