anchor.diff:  
   
   (defun %out (s &rest args
  -               &aux ;;(prefix (alexandria:ensure-list *status-prefix*))
  -               (*print-pretty* t))
  +               &aux (*print-pretty* t))
     (format *test-stream* "~@:_~?" (or s "") args))
   
   (defmethod %print-result-summary ((o test-results-db))
  
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:             (%out "~S => ~S" f v))))
      result)
  
    (:method ((result failure-result))
      (%out "Expected ~{~S~^; ~} " (expected result))
      (format *test-stream*
              "~<~:;but saw ~{~S~^; ~}~>"
              (actual result)))
  
    (:method ((result error-result))
  