class_case.clj

(defmacro class-case [expr & cases]
  `(case (class ~expr)
     ~@(apply concat (for [case-row (partition-all 2 cases)]
                       (if (next case-row)
                         (if (seq? (first case-row))
                           [(map resolve (first case-row)) (second case-row)]
                           [(resolve (first case-row)) (second case-row)])
                         case-row)))))
; Usage

(class-case 123
  Integer :int
  Long :long
  :something-else)

;=> :int

(class-case 123.0
  (Long Integer Short Byte) :int-like
  (Double Float) :float-like
  :something-else)

;=> :float-like