换句话说，"好吧，代码就是数据…"
该线程解决了如何从源文件中读取的问题，但我想知道如何将已经加载的函数的s-表达式转换为可以读取和操作的数据结构。
换句话说，如果我说，
(defn example [a b] (+ a b))
我不能在运行时得到那个列表吗？这难道不是"代码即数据"的全部意义吗？
这确实是一个一般的Lisp问题，但我正在Clojure中寻找答案。
您可以使用clojure.repl/source宏来获取符号的来源：
user> (source max)
(defn max
"Returns the greatest of the nums."
{:added "1.0"
:inline-arities >1?
:inline (nary-inline 'max)}
([x] x)
([x y] (. clojure.lang.Numbers (max x y)))
([x y & more]
(reduce1 max (max x y) more)))
nil
但这只是答案的一部分。AFAICT source查找定义给定符号的源文件名和行号，然后打印文件中的源代码。因此，source将不适用于您没有源代码的符号，即AOT编译的clojure代码。
回到您最初的问题，您可以将source视为读取与给定符号相关联的元数据并简单地打印它。也就是说，这是作弊。它不会以任何方式将"代码作为数据"返回给您，这里的代码指的是已编译的clojure函数。
在我看来，"代码即数据"指的是lisp的特性，其中源代码实际上是一个lisp数据结构，因此它可以由lisp阅读器读取。也就是说，我可以创建一个数据结构，它是有效的lisp代码，eval。
例如：
user=> (eval '(+ 1 1))
2
这里'(+ 1 1)是一个文本列表，它由clojure读取器读取，然后作为clojure代码进行计算。
更新：Yehonathan Sharvit在其中一条评论中询问是否可以修改函数的代码。以下代码段读取函数的源代码，修改生成的数据结构，并最终评估数据结构，从而定义新函数my-nth：
(eval
(let [src (read-string (str (source-fn 'clojure.core/nth) "n"))]
`(~(first src) my-nth ~@(nnext src))))
syntax-quote行将nth替换为defn形式的my-nth。
您可以使用source函数获取clojure最新版本中的源代码。
user=> (source nth)
(defn nth
"Returns the value at the index. get returns nil if index out of
bounds, nth throws an exception unless not-found is supplied. nth
also works for strings, Java arrays, regex Matchers and Lists, and,
in O(n) time, for sequences."
{:inline (fn [c i & nf] `(. clojure.lang.RT (nth ~c ~i ~@nf)))
:inline-arities #{2 3}
:added "1.0"}
([coll index] (. clojure.lang.RT (nth coll index)))
([coll index not-found] (. clojure.lang.RT (nth coll index not-found))))
nil
要获得字符串作为值，可以将其包装在with-out-str:中
user=> (with-out-str (source nth))
"(defn nthn "Returns the value at the index. get returns nil if index out ofn bounds, nth throws an exception unless not-found is supplied. nthn also works for strings, Java arrays, regex Matchers and Lists, and,n in O(n) time, for sequences."n {:inline (fn [c i & nf] `(. clojure.lang.RT (nth ~c ~i ~@nf)))n :inline-arities #{2 3}n :added "1.0"}n ([coll index] (. clojure.lang.RT (nth coll index)))n ([coll index not-found] (. clojure.lang.RT (nth coll index not-found))))n"
user=>
这是我的信息；很高兴见到你；-）顺便说一句，这条线索中给出的答案参考文献读起来很好；所以，如果你感兴趣，你可能想花点时间读一下。回到您的问题，尽管source似乎适用于通过文件加载的代码，但它并不适用于所有情况。我认为，特别是，它不适用于repl中定义的函数。
user=> (def foo (fn [] (+ 2 2)))
#'user/foo
user=> (source foo)
Source not found
nil
user=> (defn foo2 [] (+ 2 2))
#'user/foo2
user=> (source foo2)
Source not found
nil
挖掘一点点。。。
user=> (source source)
(defmacro source
"Prints the source code for the given symbol, if it can find it.
This requires that the symbol resolve to a Var defined in a
namespace for which the .clj is in the classpath.
Example: (source filter)"
[n]
`(println (or (source-fn '~n) (str "Source not found"))))
nil
user=> (source clojure.repl/source-fn)
(defn source-fn
"Returns a string of the source code for the given symbol, if it can
find it. This requires that the symbol resolve to a Var defined in
a namespace for which the .clj is in the classpath. Returns nil if
it can't find the source. For most REPL usage, 'source' is more
convenient.
Example: (source-fn 'filter)"
[x]
(when-let [v (resolve x)]
(when-let [filepath (:file (meta v))]
(when-let [strm (.getResourceAsStream (RT/baseLoader) filepath)]
(with-open [rdr (LineNumberReader. (InputStreamReader. strm))]
(dotimes [_ (dec (:line (meta v)))] (.readLine rdr))
(let [text (StringBuilder.)
pbr (proxy [PushbackReader] [rdr]
(read [] (let [i (proxy-super read)]
(.append text (char i))
i)))]
(read (PushbackReader. pbr))
(str text)))))))
nil
所以，是的，看起来它试图从类路径加载源文件，试图为您吐出它。在使用Clojure时，我学到了一件事，那就是查看源代码十有八九是有用的。