anchor.diff:    (and (< x 33) (> x 0)))
   
   (defun xml-text-char? (x)
  -  (not (xml-special-char? x)))
  +  (not (= #\< x)))
   
   (defun xml-identifier-char? (x)
     (not (or (xml-special-char? x)
   		   (xml-whitespace? x))))
  -
   
   ;;; String functions
   
  
positive.code: 
  ;;; Errors.
  
  (defvar *xml2lmlr-read* nil)
  
  (defun xml-error (form &rest args)
    (princ (list-string (reverse *xml2lmlr-read*)))
  
negative.code: (defun xml-error-unexpected-eof (in)
    (xml-error "unexpected end of file"))
  
  ;;; Character functions.
  
  (defun xml-special-char? (x)
  