Мне вот сегодня впервые смерджил пр в опенсорс

ебать

new feature: CMUCL-style block compilation support has been added, allowing whole program optimization. It has been documented in a new section of the manual entitled "Advanced Compiler Use and Efficiency Hints". In particular, users of block compilation will find a large speedup for numerical code, as functions which call or return floating point values will keep everything unboxed.

Гомоиконность заставит иметь делиметры (скобки) -> sexps -> лисп

очень сложно им не быть, будучи гомоиконным

День добрый и вопрос вам как эксперту.
Есть вот такая форма которая мне очень нравится:

(defmacro mk-calculation (plist &body body)
  `(let ((params ,plist)
         (runner-string (quote ,@body))
         (status 'new))
     (labels ((all-params () params)
              (get-param (key) (getf params key))
              (set-param (key val) (setf (getf params key) val))
              (get-status () status)
              (set-status (sym) (setf status sym)))
       (lol:dlambda
        (:get (key) (get-param key))
        (:status () status)
        (:show-runner () runner-string)
        (:run () (progn ,@body 
                        (setf status 'finished)))
        (t () (cons (cons 'calculation status) (list params)))))))

А именно: замыкание вокруг списка параметров (любых там), который должен быть обработан команой :run, в принципе один раз и с кучей сайд-эффектов. Чтобы можно было сериализовать и перезапускать это чудо, в runner-string пишется quote еще не скомпилированного body; в labels опред. сеттеры для стэйта этого_конкретного_объекта.

А вопрос, почему такой подход называют "quick AND dirty", и какой профит можно ожидать от использования CLOS+MOP вместо него?