added test.lisp