anchor.diff:     be done at compile time."
     (dolist (item items %yaclml-code%)
       (push (cond
  -            ((and (yaclml-constant-p item)
  -                  (stringp item))
  +            ((stringp item)
                item)
               ((keywordp item)
                (string-downcase (princ-to-string item)))
  
positive.code:           ;;(format t "Bailing out with ~S~%" symbol) ; TODO debug code
            (return-from xml-reader-open symbol)))
      ;;(format t "We've got a hit, simple-version? ~S~%" simple-version) ; TODO debug code
      (flet ((writer (form)
               (if (stringp form)
                   `(write-string ,form *yaclml-stream*)
                   form)))
        (let ((*readtable* (copy-readtable)))
          (set-syntax-from-char *xml-reader-close-char* #\) *readtable*)
          (let* ((list (let ((result (read-delimited-list #\> s t)))
                         ;;(format t "The delimited list is ~S~%" result) ; TODO debug code
                         result))
                 (head (if simple-version
                           (subseq symbol-name 1)
                           (if (consp (car list))
                               (eval (car list))
                               (car list))))
                 (tag-name (if (stringp head)
                               head
                               (string-downcase (princ-to-string head))))
                 (%yaclml-code% nil)
  
negative.code:                               (collect (cons (string-downcase (string (first attribute)))
                                               (second attribute)))))))
                (if body
                    (let* ((open-code)
                           (body-code)
                           (close-code)
                           (rebind-tag-name-p (consp tag-name))
                           (original-tag-name tag-name))
                      (when rebind-tag-name-p
                        (setf tag-name (gensym "TAG-NAME")))
                      (let ((%yaclml-code% '()))
                        (emit-open-tag tag-name emittable-attributes)
                        (setf open-code %yaclml-code%))
                      (let ((%yaclml-code% '()))
                        (emit-body body)
                        (setf body-code %yaclml-code%))
                      (let ((%yaclml-code% '()))
                        (emit-close-tag tag-name)
                        (setf close-code %yaclml-code%))
                      (if protect
                          (if rebind-tag-name-p
                              (emit-code `(let ((,tag-name ,original-tag-name))
                                           ,@(emitter open-code)
                                           (unwind-protect
                                                (progn ,@(emitter body-code))
                                             ,@(emitter close-code))))
                              (emit-code `(progn
                                           ,@(emitter open-code)
                                           (unwind-protect
                                                (progn ,@(emitter body-code))
                                             ,@(emitter close-code)))))
                          (if rebind-tag-name-p
                              (emit-code `(let ((,tag-name ,original-tag-name))
                                           ,@(emitter open-code)
                                           ,@(emitter body-code)
                                           ,@(emitter close-code)))
                              (emit-code `(progn
                                           ,@(emitter open-code)
                                           ,@(emitter body-code)
                                           ,@(emitter close-code))))))
                    (emit-empty-tag tag-name emittable-attributes))))
            `(progn
              ,@(emitter %yaclml-code%)
              nil))))))
  
  (defun with-xml-syntax ()
  