Выполнить две команды подряд после оператора if в Clojure

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

Это упрощенная версия моего фактического варианта использования, где я хочу выполнить, возможно, три оператора (извлекать значения из БД) перед возвратомкарта - {: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 (progn в CL, начало в Scheme) последовательно выполняет каждый из своих аргументов и возвращает результат последнего.

Answer 2

Если nil нормально в качестве возвращаемого значения в другом случае, рассмотрите возможность использования 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 [] ...), которая оценивает всю форму в одном загрузчике классов.