Clojure编译时​​转义机制

Question

语言Forth提供了一个“编译时”转义机制，可以在编译器运行时（不在运行时）立即执行代码。例如，您可以包含打印语句，以调试棘手的语法或类型错误）。

Clojure有类似的东西吗？我在我的一个函数调用中遇到了编译时IllegalArgumentException，并且希望添加一个编译时打印语句来确定参数类型（(.getClass)）。

谢谢。

UPDATE：这里是没有编制完整的defn：

(ns my.ns.name 
    (:gen-class 
    :main true) 
    (:use 
    [clojure.contrib.str-utils2 :only (join)]) 
    (:import 
    [java.io PrintWriter] 
    [java.net URL] 
    [java.util.concurrent Executors] 
    [java.util.jar Manifest] 
    [org.apache.commons.cli CommandLine HelpFormatter Options Option ParseException PosixParser])) 

(defn set-version 
    "Set the version variable to the build number." 
    [] 
    (def version 
    (-> (str "jar:" (.. my.ns.name (getProtectionDomain) 
            (getCodeSource) 
            (getLocation)) 
        "!/META-INF/MANIFEST.MF") 
     (URL.) 
     (.openStream) 
     (Manifest.) 
     (.. getMainAttributes) 
     (.getValue "Build-number")))) 

这defn作品：

(defn set-version 
    "Set the version variable to the build number." 
    [] 
    (println (str (.getClass my.ns.name))) 
    (def version 
    (-> (str "jar:" (-> my.ns.name (.getProtectionDomain) 
            (.getCodeSource) 
            (.getLocation)) 
        "!/META-INF/MANIFEST.MF") 
     (URL.) 
     (.openStream) 
     (Manifest.) 
     (.. getMainAttributes) 
     (.getValue "Build-number")))) 

Answer 1

打印编译期间之类的东西是相当限于特殊情况。你将主要得到符号和Seqs。只有文字在编译过程中才有意义。您可以在编译期间通过宏执行任意代码。

(defmacro debug-type 
    [x] 
    (println (type x)) 
    x) 

但正如我所说：这通常不会很有帮助。和否：一般来说，您不能将x换成eval，例如。如果x是引用let-local的符号。

编辑：更新问题的更新。

(def version 
    (-> (str "jar:" (-> *ns* (.getProtectionDomain) 
          (.getCodeSource) 
          (.getLocation)) 
        "!/META-INF/MANIFEST.MF") 
    (URL.) 
    (.openStream) 
    (Manifest.) 
    (.getMainAttributes) 
    (.getValue "Build-number"))) 

试试这个。不需要功能。 def里面defn应该响铃警钟。