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 ~@body) 
    `(defn ~(symbol (str fname "*")) ~args ~@body)) 

위의 코드는 내가 예상 한대로 두 가지 기능을 생성하지 않습니다. 마지막 것만 생성합니다.

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 ~@body) 
     (defn ~(symbol (str fname "*")) ~args ~@body))) 

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

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

별도로 인용 할 필요가 없습니다.