如何捕捉“=已在命名空间:user中引用:#'clojure.core/=,被clojure中的:#'user/=”替换?

当你使用 eval :

user=> (with-err-str (eval '(defn - [] 11)))
"WARNING: - already refers to: #'clojure.core/- in namespace: user, being replaced by: #'user/-\n"
user=> (re-seq #"WARNING" (with-err-str (eval '(defn / [] 11))))
("WARNING")

defn 宏,但没有什么阻止他们使用其他clojure工具重新定义变量:

user=> (defmacro defn-safe
  #_=>   [nam & decls]
  #_=>   (if (resolve (symbol "clojure.core" (name nam)))
  #_=>     (print "Whoops")
  #_=>     (list* `defn (with-meta nam (assoc (meta nam) :private true)) decls)))
#'user/defn-safe
user=> (defn-safe foo [x] (+ x 2))
#'user/foo
user=> (foo 22)
24
user=> (defn-safe = [a b] (- a b))
Whoopsnil
user=> 

https://github.com/clojure/tools.analyzer

clojail 处理这个(以及许多其他事情)。如果你正在寻找沙盒Clojure,我建议你看看。

(def before (set (vals (ns-map *ns*))))

(defn = [])

(def after (set (vals (ns-map *ns*))))

(clojure.set/difference before after)

;=> #{#'clojure.core/=}