2.9.lisp modified