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