anchor.diff:         
   
   (defun clean-up-html (string)
  +  (declare (optimize debug))
     (with-tidy-doc (doc)
       (with-tidy-buffer (buf)
  +      (tidy-opt-set-bool doc :xhtml-out :yes)
  +      ;;(tidy-opt-set-bool doc :xml-out :yes)
  +      ;;(tidy-opt-set-bool doc :tidy-quote-ampersand :yes)
  +      ;;(tidy-opt-set-bool doc :tidy-quote-nbsp :yes)
  +      (tidy-opt-set-bool doc :tidy-num-entities :yes)
  +      ;;(tidy-opt-set-bool doc :tidy-body-only :no)
         (tidy-parse-string doc string)
         (tidy-clean-and-repair doc)
         (tidy-save-buffer doc buf)
  
positive.code: (use-foreign-library libtidy)
  
  (defctype tidy-doc :int)
  
  (defcfun ("tidyParseString" tidy-parse-string) :int
    (tdoc tidy-doc)
  
negative.code: (defcfun ("tidyRelease" tidy-release) :void
    (tdoc tidy-doc))
  
  (defcfun ("tidyOptSetBool" tidy-opt-set-bool) boolean
    (tdoc tidy-doc)
    (opt tidy-option)
    (val boolean))
  
  ;; Interface
  
  