anchor.diff:  
   
   
  -(defmethod run-test ((test diadic-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 (prediate-test)
     ((datum
  
positive.code:   (print-unreadable-object (test stream :type t :identity t)
      (format-test-label test stream)))
  
  (defgeneric run-test (test)
    (:method :around ((test test))
       (let ((pre-test-form (test-pre-test-form test)))
         (when pre-test-form
           (funcall (test-pre-test-function test))))
  
negative.code: 
  
  (defmethod format-test-condition ((condition test-succeeded)
                                    (stream stream))
    ;; FIXME/TO-DO: #I18N for condition/reporter format control strings
    (princ "Test succeeded" stream))
  