Skip to content

Instantly share code, notes, and snippets.

/result.clj

Created November 24, 2010 20:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/714298 to your computer and use it in GitHub Desktop.
Save anonymous/714298 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
result.clj
<amalloy> (macroexpand '(Integer/parseInt "1"))
<sexpbot> ⟹ (let* [obj-class__3987__auto__ (clojure.core/class Integer)]
(clojure.core/if-not (clojure.core/some (if (clojure.core/map?
clojail.core/tester) (clojure.core/let [{:keys [blacklist__3988__auto__
whitelist__3989__auto__]} clojail.core/tester] (clojure.core/fn
[target__3990__auto__] (clojure.core/or (clojure.core/and
whitelist__3989__auto__ (clojure.core/not (whitelist__3989__auto__
target__3990__auto__)) target__3990__auto__) (clojure.core/and
blacklist__3988__auto__ (blacklist__3988__auto__ target__3990__auto__)))))
clojail.core/tester) [obj-class__3987__auto__ (.getPackage
obj-class__3987__auto__)]) (. Integer parseInt "1") (throw
(java.lang.SecurityException. (clojure.core/str "You tripped the
alarm! " obj-class__3987__auto__ " is bad!")))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment