anchor.diff:    (unless (eq :identifier (html-parser-token parser))
       (report-error parser "Expected a tag identifier"))
     (let ((tag (prog1 (make-open-tag 
  -                     :name (prog1 (html-parser-value parser) (advance parser))
  -                     :attributes (unless (member (html-parser-token parser) 
  -                                                 '(:end-tag :close-end-tag))
  -                                   (parse-attributes parser))
  +                     :name (prog1 (normalize-tag (html-parser-value parser))
  +                             (advance parser))
  +                     :attributes (parse-attributes parser)
                        :closed (eq (html-parser-token parser) :close-end-tag))
                  (unless (member (html-parser-token parser)
                                  '(:end-tag :close-end-tag))
  
positive.code: "
    (let ((name (or (ignore-errors (namestring stream))
                    (princ-to-string stream)))
          synthetic walked encased)
      (when verbose
        (format *trace-output* "~&starting parsing of file ~S~%" name))
      (setf synthetic (let ((parser (make-html-parser :scanner (make-html-scanner :source stream))))
  
negative.code:   ;;        | tag  file  { html-seq: [(first tag)  (rest file)] }
    ;;        | data file  { html-seq: [(first data) (rest file)] } ;
    (loop
      :for synthetic = (case (html-parser-token parser)
                         ((:eof)       nil)
                         ((:pcdata)    (prog1 (html-parser-value parser) 
  