anchor.diff:  
   (in-package #:info.metacommunity.cltl.test)
   
  -(defgeneric test-goal-test (test))
  -
  -(defgeneric test-goal-parameters (test))
  -
  -(defgeneric test-goal-expect-state (test))
  +(defgeneric test-test (test))
  +
  +(defgeneric test-parameters (test))
  +
  +(defgeneric test-expect-state (test))
   ;; ^ FIXME: This applies only to a VALUES-TEST
   
   (declaim (type function %default-equivalence-function%))
  
positive.code:     ;; information to the developer
      :initarg :cleanup-results
      :initform nil
      :accessor test-record-cleanup-results)
     )
  
    #+AFFTA-1.4
  
negative.code:     :accessor test-goal)
     (condition 
      ;; If the test completed successfully, this slot's value should be
      ;; 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-condition)
     (results
      ;; For a values test:
      ;;
  