anchor.diff:          (incf *fail*))
       ;; Report the assertion
       (when (and (not passed) *print-failures*)
  -      (print-failure type form expected actual extras))
  +      (print-failure
  +       *output-format* type form expected actual extras))
       ;; Return the result
       passed))
   
  
positive.code: 
  ;;; Global options
  
  (defparameter *print-summary* nil
    "Print a summary of the pass, fail, and error count if non-nil.")
  
  
negative.code:     (handler-case (run-code code)
        (error (condition)
          (when *print-errors*
            (print-error *output-format* condition))
          (if (use-debugger-p condition)
              condition
              (return-from run-test-thunk
  