anchor.diff:  (defun xml-error-unexpected-eof (in)
     (xml-error "unexpected end of file"))
   
  -
   ;;; Character functions.
   
   (defun xml-special-char? (x)
  
positive.code: 
  ;;; Errors.
  
  (defvar *xml2lmlr-read* nil)
  
  (defun xml-error (form &rest args)
    (princ (list-string (reverse *xml2lmlr-read*)))
  
negative.code:   (xml-expect-char in #\?)
    (while (not (and (= #\? (xml-read-char in))
  				   (= #\> (xml-read-char in))))
  	     (xml2lml-toplevel in)))
  
  (defun xml-skip-decl (in)
    (while (not (= #\> (xml-read-char in)))
  