<Raynes> (macroexpand '(.unmap *ns* 'first))
<buttered-toast> ⟹ (let* [tester-obj__324__auto__ (clojure.core/binding
[clojure.core/*read-eval* true] (clojure.core/read-string "#{the-ns
#=clojure.lang.Reflector #=clojure.lang.Namespace ns-publics ns-unmap
ns-interns set! *read-eval* #=(java.lang.Package/getPackage
\"java.lang.reflect\") #=clojure.lang.Ref intern load-reader addMethod
ns-resolve load-string resolve ns-map eval catch alter-var-root def}"))
tester-fn__325__auto__ (if (clojure.core/map? tester-obj__324__auto__)
(clojure.core/let [{whitelist__327__auto__ :whitelist,
blacklist__326__auto__ :blacklist} tester-obj__324__auto__]
(clojure.core/fn [target__328__auto__] (clojure.core/or
(clojure.core/and whitelist__327__auto__ (clojure.core/not
(whitelist__327__auto__ target__328__auto__)) target__328__auto__)
(clojure.core/and blacklist__326__auto__ (blacklist__326__auto__
target__328__auto__))))) tester-obj__324__auto__) obj__329__auto__
*ns* obj-class__330__auto__ (clojure.core/class obj__329__auto__)]
(clojure.core/if-let [bad__331__auto__ (clojure.core/some
tester-fn__325__auto__ [obj-class__330__auto__ obj__329__auto__
(.getPackage obj-class__330__auto__)])] (throw (java.lang.SecurityException.
(clojure.core/str "You tripped the alarm! " bad__331__auto__ " is bad!")))
(. *ns* unmap (quote first))))