Predicate classes allow fine-grained control over method dispatch.

PREDICATE:

define-predicate-class ( class superclass definition -- )

The set of predicate classes is a class:

predicate-class

predicate-class? ( object -- ? )