(defn str-caseless= [a b]
  (= (clojure.string/lower-case a)
     (clojure.string/lower-case b)))

(str-caseless= "foo" "fOO")   ; true