anchor.diff:            (test-predicate test)))
   
   
  -
  -(defmethod run-test ((test diadic-predicate-test)
  -                     &rest data &key &allow-other-keys)
  -  (let ((a (test-datum-a test))
  -        (b (test-datum-b test)))
  -    (funcall (the function (test-predicate test))
  -             a b)))
  -
  -
  -;;;; Monadic-Predicate-Test
  -
  -(defclass monadic-predicate-test (predicate-test)
  -  ((datum
  -    :initarg :datum
  -    :accessor test-datum)))
  -
  -
  -(defmethod format-test-label ((test monadic-predicate-test)
  +;;;; Monadic-Values-Test
  +
  +(defclass monadic-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: ;;  (macroexpand-1
  ;;   (quote
      (deftest #:deftest-test
          (:class 'diadic-predicate-test
                  :setup (setq foo-interface-active-p t)
                  :predicate (quote =)
                  :expect 4 ;; FIXME: move into test data
  
negative.code: 
  ;; test application
  
  #+NIL
  (defgeneric run-test (test &rest data &key &allow-other-keystest)
    ;; FIXME: Move documentation; remove this function; use test-protocol.lisp
  
  