Clojure Resolving-Funktion von String-Name

Question

In Clojure 1.2RC1, ich möchte eine Funktion basierend auf seinem Namen als Zeichenfolge erhalten und evaluieren.

Funktionsdefinition

(ns my-ns) 

(defn mycar [x] (first x)) 

Die folgende gearbeitet:

((ns-resolve *ns* (symbol "mycar")) '(3 4)) 
((intern *ns* (symbol "mycar")) '(3 4)) 
((eval (symbol "mycar")) '(3 4)) 

aber sie scheinen hässlich. Gibt es einen besseren Weg? Wenn nicht, welches der oben genannten ist am idiomatischsten?

Answer 1

Dieser arbeitete für mich ohne eval:

user> (defn mycar [x] (first x)) 
#'user/mycar 
user> ((resolve (symbol "mycar")) [1 2 3]) 
1 

Das funktioniert, weil die Entschlüsse mycar var in den aktuellen Namensraum findet und die var ruft die Funktion es gebunden ist. Dies ist eine kürzere Version Ihres ersten Beispiels. Ich würde es nur benutzen, um Eval zu vermeiden.