[toronto-lisp] Pattern Matching in CL