anchor.diff:      ;; information to the developer
       :initarg :cleanup-results
       :initform nil
  -    :accessor test-record-cleanup-results)
  +    :accessor test-cleanup-results)
      )
   
     #+AFFTA-1.4
  
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 :setup-results
      :initform nil
      :accessor test-setup-results)
     (cleanup-result
      ;; This slot's value should hold a multiple-value-list of any
      ;; values returned by the effective DO-TEST-CLEANUP method for
  