more utlitily lisp code