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:   ;; FIXME: Refactor onto UTILS:PRETTY-PRINTABLE-OBJECT
    (multiple-value-bind (fn boundp)
        (slot-value* test 'object)
      (when boundp
        (format stream "[~A] ~A" 
                (class-name (class-of test))
                (function-name (test-object test))))))
  
  
  (defgeneric %test-suite-tests (suite))
  
negative.code: ;; test-classes.lisp - protocol classes [AFFTA]
  
  ;; FIXME: Once AFFTA test-interfaces is defined,
  ;;        then define tests for:
  ;;  1. ASSOCIATIVE-INDEX and subclasses
  ;;  2. TEST-SUITE and TEST registry protocol (presently mirroring ASSOCIATIVE-INDEX protocol)
  
  (in-package #:info.metacommunity.cltl.test)
  
  