anchor.diff:  
   ;;;; Test
   
  -(defclass test (associative-object)
  +(defclass test (definition associative-object)
     ;; FIXME: add slot SUITE (?)
     ((object
       :initarg :object
  
positive.code: 
  (defgeneric %test-suite-tests (suite))
  
  (defgeneric test-suite-default-test-class (suite))
  (defgeneric (setf test-suite-default-test-class) (new-value suite))
  
  (defclass test-suite (simple-associative-index associative-object)
    ((default-test-class
         :initarg :default-test-class
       :initform (find-class 'lisp-test)
       :type class-designator 
       :accessor test-suite-default-test-class))
    (:metaclass associative-class)
    (:key-slot . mcicl.utils::name)
    (:default-initargs :key-function #'object-name))
  
  
negative.code:     :initarg :predicate
      :type function
      :accessor test-predicate)
     ;; NOTE: The following slots are defined with non-conventional
     ;; accessors, below.
     (setup-function
  