anchor.diff:   <li><a>hai</a>
   </ul>")))
   
  -    (is (equal-sans-trailing-spaces
  +    (is (visually-equal
            (with-html-string
              (:html (:head)
                (:body (:a "hai"))))
  
positive.code:                               for amount in amounts
                                do (:li amount item))))
                   (:footer ("Last login: ~A" last-login)))))))
      (is (equalp generated-string expected-string))))
  
  (test indent-problem
    (let ((*print-pretty* t))
  
negative.code: (defun run-tests ()
    (run! 'spinneret))
  
  (defun visually-equal (string1 string2)
    (let* ((lines1 (serapeum:lines string1))
           (lines2 (serapeum:lines string2)))
      (and (= (length lines1)
  