demangle.clj

(defmacro demangle [sym]
  (let [prefix# (str (gensym))
        name# (symbol (str prefix# sym))
        fn# `(defn ~name# [] (str (quote ~sym)))]
    `(-> ~fn#
         var-get
         class
         str
         (clojure.string/split (re-pattern ~prefix#))
         last
         (clojure.string/split #"__\d")
         first)))

(demangle !*&#-+=$%.><?|)
;; => "_BANG__STAR__AMPERSAND__SHARP___PLUS__EQ_$_PERCENT__DOT__GT__LT__QMARK__BAR_"