Function: TREE-DEPTH-FIRST-SEARCH

Source

(defun tree-depth-first-search (start goal-p successors)
  (tree-search (list start) goal-p successors #'append))