anchor.diff:    (:documentation
      "Result of a failed equal assertion."))
   
  -(defun equal-result (test expected actual)
  +(defmethod assert-result ((type (eql :equal)) test expected actual)
     "Return the result of an equal assertion."
     (and
      (<= (length expected) (length actual))
  
positive.code:   "Perform the assertion and record the results."
    (let* ((actual (multiple-value-list (funcall code-thunk)))
           (expected (multiple-value-list (funcall expected-thunk)))
           (result
            (funcall (assert-function type) test expected actual)))
      (if result
          (incf *pass*)
          (push (make-instance
  
negative.code:   (:documentation
     "Result of a failed output assertion."))
  
  (defmethod assert-result ((type (eql :output)) test expected actual)
    "Return the result of an output assertion."
    (declare (ignore test))
    (string=
     (string-trim '(#\newline #\return #\space) (car actual))
     (car expected)))
  
  (defun assert-class (type)
    "Return the class for the assertion type."
  