lisp dfs add