anchor.diff:  ;;;;****************************************************************************
   
   (defpackage "COM.INFORMATIMAGO.COMMON-LISP.HTML-PARSER.PARSE-HTML"
  -   (:use "COMMON-LISP"
  +  (:use "COMMON-LISP"
           "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
           "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST"
           "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STRING"
  
positive.code:                                  "PRINT-NOT-READABLE-OBJECT")
    (:import-from "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STRING" "UNSPLIT-STRING"
                  "SPLIT-STRING" "STRING-REPLACE")
    (:export "HTML-ATTRIBUTE" "HTML-CONTENTS" "HTML-ATTRIBUTES" "HTML-TAG"
             "UNPARSE-HTML" "WRITE-HTML-TEXT"
             "PARSE-HTML-STREAM" "PARSE-HTML-STRING" "PARSE-HTML-FILE")
    (:documentation "
  
  
negative.code: DO:                 Parse the HTML in the STRING (between START and END)
  VERBOSE:            When true, writes some information in the *TRACE-OUTPUT*.
  RETURN:             A list of html elements.
  SEE ALSO:           ELEMENT-TAG, ELEMENT-ATTRIBUTES, ATTRIBUTE-NAMED, ELEMENT-CHILDREN.
  " 
    (when verbose
      (format *trace-output* "~&starting string parsing from ~D~%" start))
  