如何创建一个宏来定义clojure中的两个函数

Question

下面的代码不像我预期的那样运行。

; given a function name, its args and body, create 2 versions: 
; i.e., (double-it foo []) should create 2 functions: foo and foo* 
(defmacro double-it    
    [fname args & body]  
    `(defn ~fname ~args [email protected]) 
    `(defn ~(symbol (str fname "*")) ~args [email protected])) 

上面的代码并没有像我期望的那样创建两个函数。它只创建最后一个。

user=> (double-it deez [a b] (str b a)) 
#'user/deez* 

如何获得单个宏来定义两个函数？

Answer 1

 

; given a function name, its args and body, create 2 versions: 
; ie (double-it foo []) should create 2 functions: foo and foo* 
(defmacro double-it     
    [fname args & body]   
    `(do (defn ~fname ~args [email protected]) 
     (defn ~(symbol (str fname "*")) ~args [email protected]))) 

(double-it afunc [str] (println str)) 

(afunc* "asd") 
(afunc "asd") 
 

无需单独引用它们。