anchor.diff:              (%out "~S => ~S" f v))))
       result)
   
  -  (:method ((result failure-result)
  -            &aux (prefix (alexandria:ensure-list *status-prefix*)))
  +  (:method ((result failure-result))
       (%out "Expected ~{~S~^; ~} " (expected result))
       (format *test-stream*
  -            "~<~?~:;but saw ~{~S~^; ~}~>"
  -            (first prefix) (rest prefix)
  +            "~<~:;but saw ~{~S~^; ~}~>"
               (actual result)))
   
     (:method ((result error-result))
  
positive.code:     (%out "~{~S~^; ~}" (actual result))
      result)
  
    (:method ((result macro-result)
              &aux (prefix (alexandria:ensure-list *status-prefix*)))
      (%out "Should have expanded to ~{~S~^; ~} " (expected result))
      (format *test-stream*
              "~<~?~:;but saw ~{~S~^; ~}~>"
              (first prefix) (rest prefix)
              (actual result))
      result)
  
    (:method ((result output-result)
              &aux (prefix (alexandria:ensure-list *status-prefix*)))
      (format *test-stream* "~@:_| Should have printed ~{~S~^; ~} "
              (expected result))
      (format *test-stream* "~<~?~:;but saw ~{~S~^; ~}~>"
              (first prefix) (rest prefix)
              (actual result))
      result)
    (:method ((w warning))
  
negative.code: 
  
  (defun %out (s &rest args
                 &aux (*print-pretty* t))
    (format *test-stream* "~@:_~?" (or s "") args))
  
  (defmethod %print-result-summary ((o test-results-db))
  