anchor.diff:    )
   
   
  -(declaim (type class-designator %rest-record-class))
  -
  -(defvar %test-record-class% 'test-record)
  -
  -      
  +
  +;; FIXME: remove DO-RECORDED-TEST, move comments into documentation      
   (defgeneric do-recorded-test (record 
                                 #-AFFTA-1.4 test
                                 #+AFFTA-1.4 output
  
positive.code:     (cond
        ((slot-boundp test 'setup-function)
         (values (test-setup-function test) t))
        (values nil nil))))
  
  (defgeneric test-cleanup-function (test)
    ;; trivial test cleanup protocol
    ;;
    ;; (values (or null function) boolean)
    ;;
  
negative.code:           (888*****adfasdfasdfadfdf* (foo output)
              ))
        (call-the-next-method-!)))
  
    ;; FIXME: This method is scheduled to be removed, subsequent to
    ;; moving the previous documentation string into an actual
    ;; documentation file, cf. XXE
    #+NIL 
    (:method ((record test-record) test)
      (let ((parameters (test-parameters record))
            (expect (test-expect-state record))
            (test (test-utility-test record)))
        (handler-case
            (do-test parameters expect test)
          (t (c)
            (setf (test-condition record) c)
            (notify (current-application) test c))))))
  
  
  