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