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:   (xml-expect-char in #\?)
    (while (not (and (= #\? (xml-read-char in))
  				   (= #\> (xml-read-char in))))
  		 (progn
  		   (xml-expect-char in #\>)
  		   (xml2lml-toplevel in))))
  
  (defun xml-skip-decl (in)
    (while (not (= #\> (xml-read-char in)))
  
negative.code:   (when (end-of-file in)
      (xml-error-unexpected-eof in))
    (let c (read-char in)
  	(push! c *xml2lml-read*)
  	c))
  
  (defun xml-peek-char (in)
  