adds newlisp function `dirname