Exercise code from "ANSI Common Lisp"