This is probably not the prettiest way to do it, but I think it gets the job done:
(defn make-sym [keyword] (->> keyword name (str "prefix-") symbol)) (defn make-fn [keyword] (let [n (gensym)] (list 'defn (make-sym keyword) [n] (list '= n keyword)))) (defmacro make-fns [keywords] `(do ~@(map make-fn keywords))) user=> (make-fns [:a :b :c]) #'user/prefix-c user=> (prefix-a :a) true user=> (prefix-a :x) false user=> (prefix-b :b) true user=> (prefix-b :x) false user=> (prefix-c :c) true user=> (prefix-c :x) false The credit belongs to Alan, and Mr. Stuart Halloway for his examples from Ch. 7 of Programming Clojure. On Sep 10, 2:37 pm, icemaze <icem...@gmail.com> wrote: > Alan, thank you for your reply. > Unfortunately your solution is very similar to mine and it suffers > from the same problem (maybe I'm using it incorrectly, I don't know). > If I write: > > (doseq [x '(:a :b)] > (make-fn x)) > > it defines a single function "synthetic-x". Is there a way to make > this work? I tried everything but both eval and var-get don't work for > local bindings. > > Thanks again. -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en
