シンボルが定義されている場合にのみ使用する方法

Question

特定のvarに依存するClojureコードを実行したいですが、が定義されている場合にのみが実行されます。 symが定義されている場合簡略化した例として、if形の本体にのみ実行されるべきである：

(if (resolve 'sym) (println sym)) 

残念ながら、これは動作しません。 symが定義されていない場合、コンパイラはまだそれを解決しようとスロー：

CompilerException java.lang.RuntimeException: Unable to resolve symbol: sym in this context 

リッチHickleyさんのコメントhereを読んでから、私はこの動作は（主に）シングルパスのコンパイルのClojureのの使用によるものであることを集まりました。しかし、それは意味をなさず、明らかにこの場合望ましくない挙動を引き起こす。

私は、実行時に発生するシンボル解決を強制することで問題を回避することができます

(if (resolve 'sym) (println (deref (resolve 'sym)))) 

しかし、これは望ましくないハックです。 Clojureの読み込みモデルでは、より良い方法があるのでしょうか？

（なぜ私は私のprofiles.cljで定義された複数の構成可能なプロファイルがありますか？これを実行する必要があります。そのうちの一つは、私は便利なアクセス.名前空間に様々な機能を注入することを可能にする、vinyasaためである。その他は、様々な他のユーティリティを読み込みますヴィンヤサがロードされている場合にのみ、ライブラリ。それらの他のユーティリティライブラリのプロファイルでは、私が最も重要な機能を注入するヴィンヤサを使用したい、けど。私は上記のハックのcurrently using変化しています。）

Answer 1

アプローチは、 @Michielによってwhen-letで捧げられてこの問題を解決する最善の方法です。

(when-let [foo (resolve 'foo)] 
    (foo)) 
;;=> nil 

(defn foo [] 
    :bar) 

(foo) 
;;=> :bar 

(when-let [foo (resolve 'foo)] 
    (foo)) 
;;=> :bar 

Answer 2

(defn get-when-var-defined [sym] 
    (when-let [var-for-sym (resolve sym)] 
    @var-for-sym)) 

(get-when-var-defined 'foo) ;;=> nil 
(def foo 1) 
(get-when-var-defined 'foo) ;;=> 1