Я хотел бы сделать это (в REPL или где угодно)
(defn (symbol "print-string") [k] (println k))
а потом уметь делать
(print-string "lol")
Или, если есть какой-либо другой способ создать defn из пользовательских строк в макросах, не могли бы вы подтолкнуть меня в правильном направлении, пожалуйста?
Решение dnolen работает во время раскрытия макросов, решение Брайана Карпера — во время чтения. Теперь, вот один для времени выполнения:
(intern *ns* (symbol "a") (fn [k] (println k)))
Мне больше нравится ответ dnolen, но вы тоже можете сделать это:
(defn #=(symbol "print-string") [k] (println k))
#=() оценивается во время чтения. Я не знаю, насколько стабильна эта функция Clojure, я бы не стал полагаться на то, что она не изменится в будущем. Макросы, как я бы это сделал.
К сведению: ответ dnolen будет работать только для буквенных строк, а не для строк в переменных def'd или let'd.
(defmacro defn-with-str [string args & body] `(defn ~(строка символов) ~args ~@body))
(def hisym "hi") (defn-with-str hisym [] (println "hi"))
Теперь у вас есть функция под названием «hisym».
(привет) -> java.lang.Exception: невозможно разрешить символ: привет в этом контексте (NO_SOURCE_FILE: 6) (hisym) -> печатает "привет"
Чтобы этого избежать, проверьте строку имени функции в макросе
(defmacro defn-with-str [string args & body]
`(defn ~(symbol (eval string)) ~args ~@body))
