work on some practical common lisp code