anchor.diff:      (handler-case (run-code code)
         (error (condition)
           (when *print-errors*
  -          (print-error condition))
  +          (print-error *output-format* condition))
           (if (use-debugger-p condition)
               condition
               (return-from run-test-thunk
  
positive.code:   (format t "~& |~%")
    type)
  
  (defmethod print-failure (type form expected actual extras)
    (format t "~& | Expected ~{~S~^; ~} " expected)
    (format t "~<~% | ~:;but saw ~{~S~^; ~}~>" actual))
  
  (defmethod print-failure ((type (eql :error))
                            form expected actual extras)
    (format t "~& | ~@[Should have signalled ~{~S~^; ~} but saw~]"
            expected)
    (format t " ~{~S~^; ~}" actual))
  
  (defmethod print-failure ((type (eql :macro))
                            form expected actual extras)
    (format t "~& | Should have expanded to ~{~S~^; ~} " expected)
    (format t "~<~%~:;but saw ~{~S~^; ~}~>" actual))
  
  (defmethod print-failure ((type (eql :output))
                            form expected actual extras)
    (format t "~& | Should have printed ~{~S~^; ~} " expected)
    (format t "~<~%~:;but saw ~{~S~^; ~}~>" actual))
  
  (defun print-error (condition)
    "Print the error condition."
    (let ((*print-escape* nil))
      (format t "~& | Execution error:~% | ~W" condition)
  
negative.code: 
  ;;; Failure control strings
  
  (defgeneric print-failure (format type form expected actual extras)
    (:documentation
     "Report the details of the failure assertion."))
  
  (defmethod print-failure :around
    ((format (eql :lisp-unit)) type form expected actual extras)
    "Failure header and footer output."
    (format t "~& | Failed Form: ~S" form)
    (call-next-method)
  