anchor.diff:     (string-trim '(#\newline #\return #\space) (car actual))
      (car expected)))
   
  -(defun assert-class (type)
  -  "Return the class for the assertion type."
  -  (ecase type
  -    (:equal 'equal-result)
  -    (:error 'error-result)
  -    (:macro 'macro-result)
  -    (:result 'boolean-result)
  -    (:output 'output-result)))
  +(defmethod record-failure ((type (eql :output))
  +                           form actual expected extras test)
  +  "Return an instance of an output failure result."
  +  (call-next-method 'output-result form actual expected extras test))
   
   (defun internal-assert
          (type form code-thunk expected-thunk extras test)
  
positive.code:   (and
     (<= (length expected) (length actual))
     (every test expected actual)))
  
  (defclass error-result (failure-result)
    ()
  
negative.code:          (result (assert-result type test expected actual)))
      (if result
          (incf *pass*)
          (push
           (record-failure
            type form actual expected
            (when extras (funcall extras)) test)
           *fail*))
      ;; Return the result
      result))
  
  