anchor.diff:  printed if the test fails."
     (with-gensyms (result)
       (assertion-expander :result            result
  -                        :test              `(equalp (multiple-value-list ,value)
  -                                                    ,result)
  +                        :test              `(gen-test-form #'equalp
  +                                                           (multiple-value-list ,value)
  +                                                           ,result)
                           :result-expression `(multiple-value-list ,expression)
                           :report-expression `(equalp ,value ,expression)
                           :expected          value
  
positive.code: "
    (with-gensyms (result)
      (assertion-expander :result            result
                          :test              `(funcall *clunit-equality-test* ,value ,result)
                          :result-expression expression
                          :report-expression `(funcall *clunit-equality-test* ,value ,expression)
                          :expected          value
                          :forms             forms)))
  
negative.code: "
    (with-gensyms (result)
      (assertion-expander :result            result
                          :test              `(gen-test-form ,test
                                                             (multiple-value-list ,value)
                                                             ,result)
                          :result-expression `(multiple-value-list ,expression)
                          :report-expression `(funcall ,test ,value ,expression)
                          :expected          value
                          :forms             forms)))
  