It is not possible to query type name in advanced compilation.
Code below prints correct record name in other compilation modes, but under advanced compilation it prints constructor source code.
`
(defrecord FooBar [a])
(def fb (FooBar. 1))
(prn (-> fb))
(prn (-> fb type))
(prn (-> fb type pr-str))
`