(defun tree-breath-first-search (start goal-p successors) (tree-search (list start) goal-p successors #'prepend))