work related lisp functions added