如何在Clojure(Script)嵌入式DSL中移除所有核心函数并按需引入？

当然可行！这其实是Clojure(Script)里构建隔离式嵌入式DSL的常规操作，核心思路就是打造一个“干净”的命名空间，只给DSL暴露你指定的核心函数，避免原生核心函数干扰DSL的专属语义。下面是具体的实现步骤：

1. 创建无核心依赖的基础命名空间 #

Clojure默认会自动把clojure.core（ClojureScript是cljs.core）的函数引入所有命名空间，但你可以通过:refer-clojure :only []彻底排除所有核心函数，让这个命名空间成为一个完全空白的“画布”：

;; Clojure版本
(ns my.dsl.core
  (:refer-clojure :only [])) ; 完全排除clojure.core的所有函数

;; ClojureScript版本
(ns my.dsl.core
  (:refer-clojure :only [])) ; 逻辑一致，cljs.core同样会被排除

2. 精准引入所需的核心函数 #

在这个空白命名空间里，用:require配合:refer逐个导入你DSL需要的核心函数。比如你需要map、filter和inc，就这么写：

;; Clojure
(ns my.dsl.core
  (:refer-clojure :only [])
  (:require [clojure.core :refer [map filter inc]]))

;; ClojureScript
(ns my.dsl.core
  (:refer-clojure :only [])
  (:require [cljs.core :refer [map filter inc]]))

3. 定义DSL专属语法和逻辑 #

现在你可以在这个干净的命名空间里，放心定义DSL的专属函数、宏或者语法规则，不用担心和原生核心函数冲突：

(ns my.dsl.core
  (:refer-clojure :only [])
  (:require [clojure.core :refer [map filter inc]]))

;; DSL专属处理函数
(defn process-data [input]
  (filter #(> % 10) (map inc input)))

;; DSL专属循环宏
(defmacro repeat-action [count action]
  `(dotimes [_# ~count] ~action))

4. 让用户使用隔离的DSL #

用户使用时，只需要引入你的DSL命名空间，他们只能访问你暴露的DSL函数和你特意引入的核心函数，原生核心函数默认不可用：

(ns user.app
  (:require [my.dsl.core :as dsl]))

;; 正常调用DSL专属函数
(dsl/process-data [5 10 15]) ; => (11 16)

;; 可以使用你引入的核心函数
(dsl/map inc [1 2 3]) ; => (2 3 4)

;; 尝试调用未引入的原生函数会报错
(println "test") ; 报错：Unable to resolve symbol: println in this context

进阶：用宏实现更严格的代码块隔离 #

如果想要更彻底的隔离（比如用户在DSL代码块里完全无法访问外部函数），可以用宏包裹DSL代码，在宏展开时只注入你允许的函数：

(ns my.dsl.macros
  (:refer-clojure :only [])
  (:require [clojure.core :refer [map filter]]))

(defmacro run-dsl [& body]
  `(let [map ~map
         filter ~filter]
     ~@body))

用户使用时：

(run-dsl
  (map inc (filter #(> % 10) [5 10 15])) ; 正常执行
  (println "forbidden")) ; 报错：Unable to resolve symbol: println in this context

内容的提问来源于stack exchange，提问作者Gra