Почему if-not вызывает «не», а не просто инвертирует аргументы?

Question

Я изучаю источник clojure.core.

(defmacro if-not 
    ([test then] `(if-not ~test ~then nil)) 
    ([test then else] 
    `(if (not ~test) ~then ~else))) 

Что касается второго вида, то почему бы не просто

([test then else] `(if ~test ~else ~then)

Answer 1

Это выглядит просто стиль кодирования.

(if-not test then else) 

(if (not test) then else) 

(if test else then) 

Приведенный выше код будет работать одинаково. Существует несколько способов писать код, чтобы сделать то же самое.

Возможно, автор макроса if-not мог бы написать код таким образом.

(defmacro if-not 
    ... 
    ([test then else] 
    `(if (not ~test) ~then ~else))) 

Когда мы читаем этот код (выше), мы можем думать в порядке if, then, else, довольно простой.

(defmacro if-not 
    ...  
    ([test then else] 
    `(if ~test ~else ~then) 

Да, это будет работать нормально. Однако, с точки зрения удобочитаемости, порядок then и else меняются местами, и это может вызвать смущение.

Именно поэтому (по моему мнению) автор реализовал if-not таким образом.