Predicate for testing whether a value is primitive in clojure

primitive_predicate.clj

(definterface IPrimitive
  (is_primitive [^boolean x])
  (is_primitive [^float x])
  (is_primitive [^double x])
  (is_primitive [^int x])
  (is_primitive [^long x])
  (is_primitive [^Object x]))

(deftype IsPrimitive []
  IPrimitive
  (is_primitive [_ ^float x] true)
  (is_primitive [_ ^double x] true)
  (is_primitive [_ ^int x] true)
  (is_primitive [_ ^long x] true)
  (is_primitive [_ ^boolean x] true)
  (is_primitive [_ ^Object x] false))

(def ^IsPrimitive is-primitive (IsPrimitive.))
(defmacro primitive?
  "Predicate for x being of primitive type."
  [x]
  `(.is_primitive is-primitive ~x))