Alinear una función con macros Clojure

Question

Más por curiosidad que cualquier otra cosa (pero con la expectativa de que ocasionalmente podría ser un truco útil para ajustar el rendimiento), ¿es posible usar macros Clojure para "alinear" una función existente?

es decir, me gustaría ser capaz de hacer algo como:

(defn my-function [a b] (+ a b)) 

(defn add-3-numbers [a b c] 
    (inline (my-function 
    a 
    (inline (my-function 
     b 
     c))))) 

Y tienen que producir (en tiempo de compilación) exactamente la misma función que si hubiera inline las adiciones a mí mismo, tales como:

(defn add-3-numbers [a b c] 
    (+ a (+ b c))) 

Answer 1

En caso de que no lo sabía, se pueden definir las funciones inline utilizando definline

(doc definline) 
------------------------- 
clojure.core/definline 
([name & decl]) 
Macro 
    Experimental - like defmacro, except defines a named function whose 
    body is the expansion, calls to which may be expanded inline as if 
    it were a macro. Cannot be used with variadic (&) args. 
nil 

también la comprobación de la fuente,

(source definline) 
------------------------- 
(defmacro definline 
    [name & decl] 
    (let [[pre-args [args expr]] (split-with (comp not vector?) decl)] 
    `(do 
     (defn ~name ~@pre-args ~args ~(apply (eval (list `fn args expr)) args)) 
     (alter-meta! (var ~name) assoc :inline (fn ~name ~args ~expr)) 
     (var ~name)))) 

definline define simplemente una var con meta-datos {:inline (fn definition)}. Entonces, aunque no es exactamente lo que estaba preguntando, puede volver a enlazar la var con nuevos metadatos para obtener un comportamiento inline.