anchor.diff:   <head>
     <meta charset=UTF-8>
    </head>
  - <body>
  -  <a>hai</a>
  + <body><a>hai</a>
    </body>
   </html>")))))
   
  
positive.code:           "there world"))))))
  
  (test explicit-spaces
        (is (equal "<div>hi<span> there</span></div>"
                   (let (*print-pretty*)
                     (spinneret:with-html-string (:div "hi" (:span " there")))))))
  
negative.code: 
  (test indent-problem
    (let ((*print-pretty* t))
      (is (visually-equal
           (with-html-string
             (:ul (:li (:a "hai"))))
           (format nil "~
  