anchor.diff:            (test-expect-values test)
             (test-predicate test)))
   
  -(defmethod run-test ((test monadic-predicate-test)
  -                     &rest data &key &allow-other-keys)
  -  (let ((a (test-datum test)))
  -    (funcall (the function (test-predicate test))
  -             a)))
  -
  -;;;; Variadic-Predicate-Test
  -
  -(defclass variadic-predicate-test (predicate-test)
  -  ((data
  -    :initarg :datum
  -    :accessor test-data)))
  -
  -(defmethod format-test-label ((test monadic-predicate-test)
  +
  +;;;; Variadic-Values-Test
  +
  +(defclass variadic-values-test (values-test)
  +  ())
  +
  +(defmethod format-test-label ((test monadic-values-test)
                                 (stream stream))
     (princ-label test stream)
     (format stream "(~A~{ ~A~}) => (~{ ~A~} ) ~A"
  
positive.code: (defgeneric test-predicate (test)
    (:method ((test function))
      (values %default-equivalence-function%)))
  ;; 
  (defclass values-test (test)
    ((expect-values
      :initarg :expect
  
negative.code:           (test-expect-values test)
            (test-predicate test)))
  
  