Описание: функция find-in-tree выполняет рекурсивый поиск элемента item в древовидном списке tree.

Пример использования:

(defparameter *l* '("FLOW" "Flow Analysis 1"
                     ("&replace DOMAIN INTERFACE" "C T_1 R"
                      ("Boundary List1" "C T_1 R Side 1")
                      ("Boundary List2" "C T_1 R Side 2")
                      ("Filter Domain List1" "D1L")
                      ("Filter Domain List2" "D1R")
                      ("Interface Region List1" "D1 C T_1 L_N01_D070.0_S18.90")
                      ("Interface Region List2" "D1 C T_1 R_N01_D070.0_S18.90 2")
                      ("Interface Type" "Fluid Fluid")
                      ("INTERFACE MODELS" ""
                       ("Option" "Rotational Periodicity")
                       ("AXIS DEFINITION" ""
                        ("Option" "Coordinate Axis")
                        ("Rotation Axis" "Coord 0.1")))
                      ("MESH CONNECTION" "" ("Option" "GGI")))))

 (find-in-tree "D1L" *l* :test #'equal :key (lambda (i)(when (consp i)(second i))))