anchor.diff:      :accessor test-goal)
      (condition 
       ;; If the test completed successfully, this slot's value should be
  -    ;; a TEST-RECORD-CONDITION. If the test did not complete
  +    ;; a TEST-CONDITION. If the test did not complete
       ;; successfully, this slot's value should contain a CONDITION
       ;; object, such that would be representative of an exceptional
       ;; situation (i.e. ERROR, WARNING, or signaled CONDITION)
       ;; such that intercepted -- namely with HANDLER-CASE -- during the
       ;; evaluation of the TEST for the specified PARAMETERS.
       :initarg :condition
  -    :accessor test-record-condition)
  +    :accessor test-condition)
      (results
       ;; For a values test:
       ;;
  
positive.code: ;; ^ FIXME : Remove (?) or move into test-record.lisp
  
  
  (defgeneric test-record-condition (test))
  
  (defgeneric test-record-results (test))
  
  (defgeneric test-record-setup-results (test))
  
  (defgeneric test-record-cleanup-results (test))
  
  ;; FIXME: Implement TEST-GOAL
  
  (defclass test-utility ()
    ((test
      :initarg :test
      :accessor test-goal-test)))
  
  (defclass test-goal (test-utility)
    ;; effectively, a test goal encapsulates a set of parameters for a
  
negative.code:     ;; information to the developer
      :initarg :cleanup-results
      :initform nil
      :accessor test-cleanup-results)
     )
  
    #+AFFTA-1.4
  