cute test harness in common lisp