Code fragments from the book Practical Common Lisp