Wie erstelle ich ein Makro, um zwei Funktionen in clojure zu definieren

Question

Der folgende Code verhält sich nicht wie erwartet.

Der obige Code erstellt nicht zwei Funktionen, wie ich erwarten würde. Es erstellt nur die letzte.

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

Wie kann ich ein einzelnes Makro erhalten, um zwei Funktionen zu definieren?

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") 
 

Keine Notwendigkeit, sie separat zu zitieren.