removed unneeded, covered lisp code