anchor.diff:                       :results results)))
   
     (:method ((params list) (expect list)
  -            (test diadic-parameters-test))
  +            (test diadic-values-test))
       (declare (ignore expect))
       (destructuring-bind (a b) params
         (funcall (test-main-function test)
                  a b)))
   
     (:method ((params list) (expect list)
  -            (test monadic-parameters-test))
  +            (test monadic-values-test))
       (declare (ignore expect))
       (destructuring-bind (a) params
         (funcall (test-main-function test)
                  a)))
   
     (:method ((params list) (expect list)
  -            (test variadic-parameters-test))
  +            (test variadic-values-test))
       (declare (ignore expect))
  -    (apply (test-main-function test) params)))
  +    (apply (test-main-function test) params))
  +
  +
  +  #+TO-DO
  +  (:method ((params list) (expect symbol)
  +            (test expect-condition-test))
  +
  +    )
  +
  +  )
   
   
   ;; prototype for test eval:
  
positive.code:   ;; function would be called within the cleanup forms of an
    ;; unwind-protect form within DO-TEST
    (:method ((test test))
      (values nil)))
  
  (defgeneric do-test-setup (params test)
    (:method (params (test test))
  
negative.code:     ;; only when test has a SETUP-FUNCTION
  
      ;; FIXME: Alternately, ensure that DEFTEST
      ;; defines a primary method onto DO-TEST-SETUP
      ;; when a :SETUP form is provided
      (multiple-value-bind (fn setup-p)
          (test-setup-function test)
        (when setup-p
          (funcall fn params test)))))
  
  (defgeneric do-test-cleanup (params test)
  