;; prima di tutto ci serve una rappresentazione dell'albero...
(defparameter albero '(A (B (H (N NIL O) (I NIL J)) (C NIL (D NIL (E (K P (L Q NIL)) (F NIL (G M NIL))) NIL)))))

;; come prima funzione usiamo questa, che ritorna una lista contenete la strada per arrivare dalla radice al nodo che ci interessa
(defun strada-per-nodo (albero nodo)
           "Ritorna una lista che rappresenta la strada per arrivare al nodo a partire dall'albero sp\
ecificato."
           (cond ((null albero) nil) ; albero vuoto
                 ((atom albero) ; foglia
                  (when (eq albero nodo)
                        (list nodo)))
                 ; ricorsione principale
                 (t (let ((radice (first albero)))
                      (if (eq radice nodo)
                          (list nodo)
                          (dolist (ramo (rest albero))
                            (let ((strada (strada-per-nodo ramo nodo)))
                              (when (member nodo strada)
                                (return (cons radice strada))))))))))
;; penso si potrebbe semplificare ulteriormente comunque...

;; mentre antenato comune si puo' definire cosi'
(defun antenato-comune (albero nodo1 nodo2)
           "Trova l'antenato comune piu' vicino ai 2 nodi."
           (find-if-not #'null
                        (reverse (mapcar #'(lambda (x y)
                                             (when (eq x y) x))
                                         (strada-per-nodo albero nodo1)
                                         (strada-per-nodo albero nodo2)))))