case-discriminator-function.lisp 2.32 KB