История изменений

Исправление monk, 17.03.17 11:36 (текущая версия) :

Ну, вот, кстати, мы и вернулись к вопросу о том, что одна из ключевых фич — замена веток в рантайме

Так селектор никто не мешает в рантайме менять. Можно даже расширять.

;; deathstar module
(let ((super (fdefinition 'select)))
  (setf (fdefinition 'select)
    (lambda (x)
      (if (string= (name x) "deathstar")
          'deathstar
          (funcall super x)))))

Исходная версия monk, 17.03.17 11:31:

Ну, вот, кстати, мы и вернулись к вопросу о том, что одна из ключевых фич — замена веток в рантайме

Так селектор никто не мешает в рантайме менять. Можно даже расширять.

;; deathstar module
(let ((super (fdefinition 'select)))
  (setf (fdefinition 'select)
    (lambda (x)
      (if (string= (name x) "deathstar")
          'deathstar
          (super x)))))