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 [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
