Вопрос о Стиле Lisp маркирует локальные функции или нет?

Я задавался вопросом, существует ли общепринятая практика относительно использования маркировок в Lisp. Я бездельничал с реализацией Lisp алгоритма, описанного в первом ответе, здесь Генерирующем перестановки лениво Мои маркировки использования текущей версии для вспыхивания частей функциональности.

(defun next-permutation (pmute)
  (declare (vector pmute))
  (let ((len (length pmute)))
    (if (> len 2)
        (labels ((get-pivot ()
                   (do ((pivot (1- len) (1- pivot)))
                       ((or (= pivot 0)
                            (< (aref pmute (1- pivot))
                               (aref pmute pivot)))
                        pivot)))
                 (get-swap (pivot)
                   (let ((swp (1- len)))
                     (loop for i from (1- len) downto pivot do
                           (if (or (and (> (aref pmute i)
                                           (aref pmute (1- pivot)))
                                        (< (aref pmute i) (aref pmute swp)))
                                   (< (aref pmute swp) (aref pmute (1- pivot))))
                               (setf swp i)))
                     swp))
                 (next (swp pivot)
                   (rotatef (aref pmute (1- pivot)) (aref pmute swp))
                   (reverse-vector pmute pivot (1- len))))
          (let ((piv (get-pivot)))
            (if (> piv 0)
                (next (get-swap piv) piv)
              nil))))))

Так как каждую маркировку только называют, после того как я задавался вопросом, считают ли это плохой практикой, так как единственная причина сделать это в этом случае по эстетическим причинам. Я утверждал бы, что текущая версия с маркировками более ясна, но это может идти вразрез с общими знаниями, о которых я не знаю, будучи плохо знакомым с Lisp.