Syntatic sugar for pattern matching based definition in Common Lisp