anchor.diff:    (format t "~& |~%")
     type)
   
  -(defmethod print-failure (type form expected actual extras)
  +(defmethod print-failure ((format (eql :lisp-unit))
  +                          type form expected actual extras)
     (format t "~& | Expected ~{~S~^; ~} " expected)
     (format t "~<~% | ~:;but saw ~{~S~^; ~}~>" actual))
   
  -(defmethod print-failure ((type (eql :error))
  +(defmethod print-failure ((format (eql :lisp-unit))
  +                          (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))
  +(defmethod print-failure ((format (eql :lisp-unit))
  +                          (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))
  +(defmethod print-failure ((format (eql :lisp-unit))
  +                          (type (eql :output))
                             form expected actual extras)
     (format t "~& | Should have printed ~{~S~^; ~} " expected)
     (format t "~<~%~:;but saw ~{~S~^; ~}~>" actual))
   
  -(defun print-error (condition)
  +(defgeneric print-error (format condition)
  +  (:documentation
  +   "Print the error condition."))
  +
  +(defmethod print-error ((format (eql :lisp-unit)) condition)
     "Print the error condition."
     (let ((*print-escape* nil))
       (format t "~& | Execution error:~% | ~W" condition)
  
positive.code:         (incf *fail*))
      ;; Report the assertion
      (when (and (not passed) *print-failures*)
        (print-failure type form expected actual extras))
      ;; Return the result
      passed))
  
  
negative.code: 
  ;;; Global options
  
  (defparameter *output-format* :lisp-unit
    "Print the output using the lisp-unit format.")
  
  (defparameter *print-summary* nil
    "Print a summary of the pass, fail, and error count if non-nil.")
  
  