anchor.diff:  ;; ^ 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))
  +(defgeneric test-condition (test))
  +
  +(defgeneric test-main-results (test))
  +
  +(defgeneric test-setup-results (test))
  +
  +(defgeneric test-cleanup-results (test))
   
   ;; FIXME: Implement TEST-GOAL
   
   (defclass test-utility ()
     ((test
       :initarg :test
  -    :accessor test-goal-test)))
  +    :accessor test-test)))
   
   (defclass test-goal (test-utility)
     ;; effectively, a test goal encapsulates a set of parameters for a
  
positive.code: (defclass lisp-test-goal (test-goal)
    ((parameters
      :initarg :parameters
      :accessor test-goal-parameters)
     (expect-state
      :initarg :expect
      :accessor test-goal-expect-state))
  
  #+TO-DO
  (defclass application-test-goal (test-goal)
  
negative.code:     ;; information to the developer
      :initarg :cleanup-results
      :initform nil
      :accessor test-cleanup-results)
     )
  
    #+AFFTA-1.4
  