exercise of Practical Common Lisp - View it on GitHub