Pattern Matcher in Common Lisp