anchor.diff:                        (advance parser)
                         (parse-file parser)))
       (when verbose (format *trace-output* "~&file ~S parsed~%" name))
  -    (setf walked  (remove *newline* (parse-tree-to-sexp synthetic) :test (function equal)))
  -    (when verbose (format *trace-output* "~&file ~S walked~%" name))
  -    (setf encased (encase walked))
  +    (setf encased (unwrap-element (encase  synthetic)))
       (when verbose (format *trace-output* "~&file ~S encased -- done.~%" name))
       encased))
   
  
positive.code:   (unless (eq :identifier (html-parser-token parser))
      (report-error parser "Expected a tag identifier")) 
    (prog1 (make-close-tag 
            :name (prog1 (html-parser-value parser) (advance parser))
            :attributes (unless (eq :end-tag (html-parser-token parser))
                          (parse-attributes parser)))
      (unless (eq :end-tag (html-parser-token parser))
        (report-error parser "Expected a \">\""))
      (advance parser)))
  
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) 
  