code for the ANSI Common Lisp book