Voici un exemple de code en Lisp pour parcourir un arbre binaire en profondeur de manière infixe.
On suppose l'existence de deux fonctions left-subtree et right-subtree de la manière suivante :
(defun prefix-tree-traversal (tree fun)
(unless (null tree)
(prefix-tree-traversal (left-subtree tree) fun)
(funcall fun tree)
(prefix-tree-traversal (right-subtree tree) fun)))