Дерево, вычисление максимального пути

(defun glubina(tree)
   (cond ((NULL tree) 
           0)
         ( T 
           (+ 1 (max (glubina (cadr tree)) (glubina(cddr tree))))) 
   
   )
)
 
(defun way(tree spisok)
   (cond ((NULL tree)
            spisok)
         ( ( > (glubina (cadr tree)) (glubina (caddr tree)))
            (way (cadr tree) (append spisok (list(car tree)))))
         ( T
           (way (caddr tree) (append spisok (list(car tree)))))
   )
)
 
 
(defun test ()
 (way '(a (b (d) (e)) (c (g (h (i)) (k)))) '())
)

;; Перечисление всех путей двоичного дерева:
 
(defun all-path (tree &optional (p nil) (r nil))
  (cond ((and (null (car tree)) (null (caddr tree))) (append r (list (append p (list (cadr tree))))))
        (t (let ((rp (if (car tree) (all-path (car tree) (append p (list (cadr tree))) r) nil))
                 (lp (if (caddr tree) (all-path (caddr tree) (append p (list (cadr tree))) r)) nil))
           (append rp lp)))))
 
;; Поиск среди них путей максимальной длины
 
(defun max-len-path (tree)
  (let* ((all-p (all-path tree))
         (max (apply 'max (mapcar 'length all-p))))
    (remove-if (lambda (p) (< (length p) max)) all-p)))
 
(max-len-path '(((nil c nil) a ((nil g nil) d nil)) r ((nil e (nil h nil)) b (nil f nil)))) 
 
==> ((r a d g) (r b e h))

;; небольшой довесок:
 
(defun task (tree setv)
  (let ((p (max-len-path tree)))
    (car (remove-if-not (lambda (x) (every (lambda (y) (member y x)) setv)) p))))
 
==> task
 
(task '(((nil c nil) a ((nil g nil) d nil)) r ((nil e (nil h nil)) b (nil f nil))) '(b e)) 
 
==> (r b e h)
 
(task '(((nil c nil) a ((nil g nil) d nil)) r ((nil e (nil h nil)) b (nil f nil))) '(a d)) 
 
==> (r a d g)