anchor.diff:  
   
   (defgeneric test-setup-function (test)
  -  ;; trivial test setup protocol
  +  ;; funtional test setup protocol
     ;;
     ;; (values (or null function) boolean)
     ;;
  
positive.code:           (888*****adfasdfasdfadfdf* (foo output)
              ))
        (call-the-next-method-!)))
      
    #-AFFTA-1.4
    (:method ((record test-record) test)
      (let ((parameters (test-record-parameters record))
            (expect (test-record-expected-values record))
            (test (test-record-test record)))
        (handler-case
            (do-test parameters expect test)
          (t (c)
            (setf (test-record-condition record) c)
            (notify (current-application) test c))))))
  
  
  
negative.code: #+AFFTA-1.3
  (defmacro mktest (function (&rest args) (&rest expected-values)
                    &key
                      (predicate %default-equivalence-function%)
                      (context (get-current-test-suite)))
    (with-gensym (test record)
      `(when-test-load ;; ...
  