이 Clojure 코드로 인해 NPE가 발생하는 이유는 무엇입니까?

Question

다음 Clojure 코드는 NPE를 발생시킵니다. stacktrace에서 이것은 >=이 호출 될 때 발생합니다. 왜 이런 일이 일어나는지 알 수는 없습니다.

(def service-thresholds 
    [{:service "cpu idle" :invert true :warning 50 :critital 10} 
    {:service "cpu user" :invert false :warning 80 :critical 90}]) 

(defn threshold-check 
    [thresholds] 
    (fn [e] 
    (or (first (for [threshold thresholds 
        :when (= (:service threshold) (:service e))] 
       (assoc e :state 
         (if (not (:invert threshold)) 
          (condp <= (:metric e) 
          (:critical threshold) "critical" 
          (:warning threshold) "warning" 
          "ok") 
          (condp >= (:metric e) 
          (:critical threshold) "critical" 
          (:warning threshold) "warning" 
          "ok"))))) 
     e))) 

(println ((threshold-check service-thresholds) {:service "cpu idle" :metric 20 :state nil})) 

Answer 1

:critital는 :critical의 정확한 철자 아니다.