anchor.diff:      :accessor %test-cleanup-function)
      ))
   
  -(defgeneric test-setup-function (test)
  +(defmethod test-setup-function ((test test))
     ;;
     ;; (values (or null function) boolean)
     ;;
  
positive.code: 
  (in-package #:info.metacommunity.cltl.test)
  
  (defgeneric test-predicate (test))
  
  (defgeneric test-predicate-function (test))
  ;; ^ FIXME: Remove?
  
  (defgeneric test-name (test))
  ;; ^ FIXXME: Replaced by OBJECT-NAME
  
  (defgeneric test-object (test))
  
  (defgeneric test-setup-function (test)
    (:documentation "Functional test setup protocol.
  
negative.code: ;;;; Test
  
  (defclass test (associative-object pretty-printable-object)
    ;; FIXME: add slot SUITE (?)
    ((object
      :initarg :object
      :accessor test-object)
     (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
  