Syntaxe-citation d'un argument de macro?

Question

Je veux faire une citation syntaxique d'un argument passé à une macro, mais je n'arrive pas à la contourner. Donc, étant donné une macro quote-it et <, je voudrais obtenir

(quote-it <) 
=> clojure.core/< 

Ni les œuvres de ce qui suit:

(defmacro quote-it [a] `~a) 
=> #'user/quote-it 
(quote-it <) 
=> #object[clojure.core$_LT_ 0x11c08900 "clojure.core$_LT_@11c08900"] 

(defmacro quote-it [a] `'~a) 
=> #'user/quote-it 
(quote-it <) 
=> < 

Answer 1

Vous pouvez résoudre le symbole à un var dans l'espace de noms en cours en utilisant le clojure.core/resolve fonction. L'objet var contient l'espace de nom et le nom du symbole d'origine. Vous pouvez ensuite construire un nouveau symbole en utilisant ces valeurs et le renvoyer.

(defmacro quote-it [a] 
    (let [r (resolve a)] 
    `'~(symbol (str (:ns (meta r))) (str (:name (meta r))))))