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:                                         (print-name nil pnp)
                                          (print-label nil plp)
                                          (name nil namep))
    (let (args-changedp)
      (when namep
        (unless pnp
          (setf args-changedp t
                (getf initargs :print-name)
                (symbol-name name)))
        (unless plp
          (setf args-changedp t
                (getf initargs :print-label)
                (symbol-name name))))
  
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)
  
  