anchor.diff:  "
     (with-gensyms (result)
       (assertion-expander :result            result
  -                        :test              `(funcall *clunit-equality-test* ,value ,result)
  -                        :result-expression expression
  +                        :test              `(gen-test-form ,*clunit-equality-test*
  +                                                           (multiple-value-list ,value)
  +                                                           ,result)
  +                        :result-expression `(multiple-value-list ,expression)
                           :report-expression `(funcall *clunit-equality-test* ,value ,expression)
                           :expected          value
                           :forms             forms)))
  
positive.code: 
  (defun assertion-expander (&key result test result-expression report-expression expected forms)
    "Expands an assertion macro call."
    `(with-assert-restart
       (let ((,result ,result-expression))
         (if ,test
             (signal-assertion :pass)
             (signal-assertion :fail
                               :returned   (if (and (listp ',expected)
                                                    (eq (first ',expected)
                                                        'values))
                                               `(values ,@,result)
                                               ,result)
                               :expected   ',expected
                               :expression ',report-expression
                               :forms (list ,@(form-expander forms)))))))
  
  (defun form-expander (forms)
  "FORM-EXPANDER  manipulates  the  list  of forms  provided  to  an
  
negative.code: the test fails."
    (with-gensyms (result)
      (assertion-expander :result            result
                          :test              `(gen-test-form #'eql
                                                             (multiple-value-list ,value)
                                                             ,result)
                          :result-expression `(multiple-value-list ,expression)
                          :report-expression `(eql ,value ,expression)
                          :expected          value
                          :forms             forms)))
  