2 practical common lisp chapter 9 finish