Clojure functions for Java enum ordinals

gistfile1.clj

(defn enum-ordinal [^Enum x]
  (.ordinal x))

(defn enum-cmp [cmp & xs]
  (apply cmp (map enum-ordinal xs)))

(defmacro defenumop [cmp]
  `(def ~(symbol (str "enum" cmp))
     (partial enum-cmp ~cmp)))

(defenumop =)
(defenumop >)
(defenumop <)
(defenumop >=)
(defenumop <=)