CD database example taken directly from Practical Common Lisp