clojure - 解析 let 中的符号

Question

如何编写函数来解析词法环境中的符号？

(let [foo some-var]
  (let [sym 'foo]
    (resolve-sym sym)))

我想获取 'foo 绑定(bind)到的 var。

Answer 1

我不完全确定为什么我想要这样的东西，但看起来肯定可以做到。来自 http://clojuredocs.org/circumspec/circumspec.should/local-bindings

(defmacro local-bindings
  "Produces a map of the names of local bindings to their values.
   For now, strip out gensymed locals. TODO: use 1.2 feature."
  []
  (let [symbols (remove #(.contains (str %) "_")
                        (map key @clojure.lang.Compiler/LOCAL_ENV))]
    (zipmap (map (fn [sym] `(quote ~sym)) symbols) symbols)))


(let [foo 1 bar 2]
  (local-bindings))
=> {foo 1, bar 2}