<amalloy> (macroexpand '(. *ns* name))
<sexpbot> ⟹ (let* [tester-obj__362__auto__ (clojure.core/binding
[clojure.core/*read-eval* true] (clojure.core/read-string "#{the-ns
pop-thread-bindings ns-publics ns-unmap #=clojure.lang.Ref ns-interns
set! *read-eval* #=(java.lang.Package/getPackage \"java.lang.reflect\")
find-var intern load-reader #=clojure.lang.Reflector addMethod
push-thread-bindings ns-resolve load-string resolve ns-map eval catch
#=clojure.lang.Namespace alter-var-root def}")) tester-fn__363__auto__
(if (clojure.core/map? tester-obj__362__auto__) (clojure.core/let
[{whitelist__365__auto__ :whitelist, blacklist__364__auto__ :blacklist}
tester-obj__362__auto__] (clojure.core/fn [target__366__auto__]
(clojure.core/or (clojure.core/and whitelist__365__auto__
(clojure.core/not (whitelist__365__auto__ target__366__auto__))
target__366__auto__) (clojure.core/and blacklist__364__auto__
(blacklist__364__auto__ target__366__auto__))))) tester-obj__362__auto__)
obj__367__auto__ *ns* obj-class__368__auto__ (clojure.core/class
obj__367__auto__)] (clojure.core/if-let [bad__369__auto__
(clojure.core/some tester-fn__363__auto__ [obj-class__368__auto__
obj__367__auto__ (.getPackage obj-class__368__auto__)])] (throw
(java.lang.SecurityException. (clojure.core/str "You tripped the
alarm! " bad__369__auto__ " is bad!"))) (. *ns* name)))