如果 test 为真，那么结合 binding-form 绑定，对 then 部分进行求值。
如果 test 为假，那么对 else 部分进行求值。
user=> (defn sum-all-even-number [all-number]
(if-let [all-even-number (filter even? all-number)]
(reduce + all-even-number)
0))
#'user/sum-all-even-number
user=> (sum-all-even-number [1 2 3 4 5 6 7 8 9])
20 ; 2 + 4 + 6 + 8
user=> (sum-all-even-number [1 3 5 7 9])
0