anchor.diff:  ;;  (macroexpand-1
   ;;   (quote
       (deftest #:deftest-test
  -        (:class 'diadic-predicate-test
  +        (:class 'diadic-values-test
                   :setup (setq foo-interface-active-p t)
                   :predicate (quote =)
                   :expect 4 ;; FIXME: move into test data
  
positive.code: 
  
  (defmacro deftest (name (&rest args
                                 &key (class 'diadic-predicate-test)
                                 &allow-other-keys)
                                   body
                     &environment env)
  
negative.code:           (test-expect-values test)
            (test-predicate test)))
  
  