在Clojure中的if语句之后连续运行两个命令

Question

为什么以下Clojure程序会抛出NullPointerException？

user=> (defn x []  
       "Do two things if the expression is true."
       (if true ((println "first expr") (println "second expr")) false))

user=> (x)
first expr
java.lang.NullPointerException (NO_SOURCE_FILE:0)
second expr

这是我实际用例的简化版本,我想在返回映射之前执行三个语句(从DB中提取值) - {:status 200, :body "Hello World"} 在分支内部.

Answer 1

它试图将第一个println的结果视为调用第二个println函数的函数.

你需要一个do.

(defn x []  
   "Do two things if the expression is true."
   (if true (do (println "first expr") (println "second expr")) false))

(x)

该do特殊形式(CL progn这个,开始计划)执行每个参数的序列,并返回最后一个结果.

Answer 2

如果nil在else的情况下作为返回值是正常的,请考虑使用when哪个具有隐式do块:

(defn x []  
  "Do two things if the expression is true."
  (when true
    (println "first expr") 
    (println "second expr")))

Answer 3

并不是说它在你的特定情况下很重要,但确实知道它们之间的区别是(do ...)将每个表单加载到它自己的类加载器中,还有一个空的let表单(let [] ...),它在单个类加载器中计算整个表单.