anchor.diff:       :type class-designator 
        :accessor test-suite-default-test-class))
     (:metaclass associative-class)
  -  (:key-slot utils::name)
  -  (:deault-initargs :key-function #'object-name))
  +  (:key-slot . utils::name)
  +  (:default-initargs :key-function #'object-name))
   
   
   
  
positive.code: ;; test-classes.lisp - protocol classes [AFFTA]
  
  
  (in-package #:info.metacommunity.cltl.test)
  
  
negative.code:   ;; FIXME: Refactor onto UTILS:PRETTY-PRINTABLE-OBJECT
    (multiple-value-bind (fn boundp)
        (slot-value* test 'object)
      (format stream "~A [~A]" 
              (class-name (class-of test))
              (when boundp (function-name fn)))))
  
  
  (defgeneric %test-suite-tests (suite))
  