Syntatic sugar for pattern matching based function definition in Common Lisp