result.clj

<amalloy> (macroexpand-all '(-> buffer String. (.equalsIgnoreCase "TAG")))
<sexpbot> ⟹ (let* [obj-class__6346__auto__ (clojure.core/class (new
String buffer))] (let* [temp__3586__auto__ (clojure.core/some (if
(clojure.core/map? clojail.core/tester) (let* [map__9304
clojail.core/tester map__9304 (if (clojure.core/seq? map__9304)
(clojure.core/apply clojure.core/hash-map map__9304) map__9304)
whitelist__6349__auto__ (clojure.core/get map__9304
:whitelist__6349__auto__) blacklist__6348__auto__ (clojure.core/get
map__9304 :blacklist__6348__auto__)] (fn* ([target__6350__auto__]
(let* [or__3470__auto__ (let* [and__3468__auto__ whitelist__6349__auto__]
(if and__3468__auto__ (let* [and__3468__auto__ (clojure.core/not
(whitelist__6349__auto__ target__6350__auto__))] (if and__3468__auto__
target__6350__auto__ and__3468__auto__)) and__3468__auto__))] (if
or__3470__auto__ or__3470__auto__ (let* [and__3468__auto__
blacklist__6348__auto__] (if and__3468__auto__ (blacklist__6348__auto__
target__6350__auto__) and__3468__auto__))))))) clojail.core/tester)
[obj-class__6346__auto__ (new String buffer) (. obj-class__6346__auto__
getPackage)])] (if temp__3586__auto__ (let* [bad__6347__auto__
temp__3586__auto__] (throw (new java.lang.SecurityException
(clojure.core/str "You tripped the alarm! " bad__6347__auto__ " is
bad!")))) (. (new String buffer) equalsIgnoreCase "TAG"))))