anchor.diff:    ;; 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))))))
  +    (format stream "~A [~A]" 
  +            (class-name (class-of test))
  +            (when boundp (function-name fn)))))
   
   
   (defgeneric %test-suite-tests (suite))
  
positive.code: ;; test-classes.lisp - protocol classes [AFFTA]
  
  
  (in-package #:info.metacommunity.cltl.test)
  
  
negative.code:      :type class-designator 
       :accessor test-suite-default-test-class))
    (:metaclass associative-class)
    (:key-slot . utils::name)
    (:default-initargs :key-function #'object-name))
  
  
  
  