anchor.diff:    (without-interrupts
       (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-body-only :no)
  +        
  +        (tidy-opt-set-bool doc :tidyshowwarnings :no)
  +        (tidy-opt-set-bool doc :xhtml-out :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: 
  (define-foreign-library libtidy
    (:unix (:or "libtidy.so"
  	      "/usr/local/lib/libtidy.so"
  	      "/git/suave/cl-tidy/tidylib/lib/libtidy.so")))
  
  (use-foreign-library libtidy)
  
  (defctype tidy-doc :int)
  
  (defcstruct tidy-buffer
    (allocator :pointer)
  
negative.code:   #+sbcl `(sb-sys:without-interrupts ,@body)
    #-(or allegro sbcl) `(progn ,@body))
  
  (defun clean-up-html (string)
    "Given an HTML string, `string`, runs the input through Tidy. If
  Tidy can handle the input, returns a version of the document that is valid
  