Predicate dispatching in the Common Lisp Object