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: 			 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) ", whch 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)))
  
negative.code: 		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 an extended comment")
  		)
  	       (case char
  		 (#\a (return-values :CHARACTER #\bel       ))
  