ANSI Common Lisp  chapter 4 Binary search tree bst.lisp