Как мы можем создать «экземпляры» типа или записи «на лету»

Question

Этот вопрос тесно связан с this one, но я думаю, это более общий.

Недавно я попытался создать «экземпляры» типа «на лету» с помощью мультиметодов (или с помощью уникального конструктора функций, если это возможно), основанный на теге метаданных. Я связал тип (класс java под капотом) с этим тегом, а затем я не знал, как продолжать элегантным способом (без отражения или строк в eval или java); new - особая форма, и с ней трудно справиться, хотя вы используете макросы.

В seudo-коде будет:

(def my-tagged-data (with-meta my-data {:my-type-tag my-ns.My-Type})) 
(def factory-function [tagged-data] 
    (create (:my-type-tag (meta tagged-data)) tagged-data)) 

Answer 1

Вы можете предоставить заводские функции для ваших типов.

(def my-tagged-data (with-meta my-data {:my-type-factory `my-type-factory})) 

(defn factory-function 
    [tagged-data] 
    (@(resolve (:my-type-factory (meta tagged-data))) tagged-data)) 

Это может быть или не быть осуществимым.

Answer 2

Я думаю, что вы должны использовать отражение. (Лучше идея, чем eval, я думаю).