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)))