Updated simple_test.lisp