anchor.diff:  
   ;;;; Test
   
  -(defclass test (associative-object)
  +(defclass test (definition associative-object)
     ;; FIXME: add slot SUITE (?)
     ((object
       :initarg :object
  
positive.code:     :initarg :predicate
      :type function
      :accessor test-predicate)
     (summary
      :initarg :summary
      :initform nil
      :accessor test-summary
      :type (or string null))
     ;; NOTE: The following slots are defined with non-conventional
     ;; accessors, below.
     (setup-function
  
negative.code:     :accessor %test-cleanup-function)
     ))
  
  #+NIL ;; regression test - test initialization
  (make-instance  'test)
  
  
  (define-condition test-not-found (container-condition entity-not-found)
    ()
    (:report format-condition))
  