Отображение деревьев с помощью MAPCAR

Функционал mapcar служит мощной абстракцией для работы со списками. Сочетание mapcar с рекурсией служит мощной абстракцией для работы с деревьями.

(defun scale-tree (tree factor)
  (mapcar (lambda (sub-tree)
            (if (listp sub-tree)
                (scale-tree sub-tree factor)
                (* sub-tree factor)))
          tree))