Hi, maybe you just want a factory?
(defrecord Foo [a b]) (defn make-Foo [a b] (Foo. a b)) (defn make [^String class & args] (let [last-dot (.lastIndexOf class \.) factory (ns-resolve (symbol (subs class 0 last-dot)) (symbol (str "make-" (subs class (inc last-dot)))))] (when factory (apply factory args))) Something like that? Sincerely Meikel -- 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