(ns macro.bughunt)

(defn wrap-fn [f]
  (fn [] (f)))

(defmacro d [f]
  (list (wrap-fn f)))

(d (fn [] true))

;; Exception in thread "main" java.lang.ExceptionInInitializerError (bughunt.clj:0)
;;  at clojure.lang.Compiler.eval(Compiler.java:4617)
;;  at clojure.lang.Compiler.load(Compiler.java:4931)
;;  at clojure.lang.Compiler.loadFile(Compiler.java:4898)
;;  at clojure.main$load_script__7253.invoke(main.clj:210)
;;  at clojure.main$script_opt__7290.invoke(main.clj:262)
;;  at clojure.main$main__7314.doInvoke(main.clj:337)
;;  at clojure.lang.RestFn.invoke(RestFn.java:413)
;;  at clojure.lang.Var.invoke(Var.java:359)
;;  at clojure.lang.AFn.applyToHelper(AFn.java:173)
;;  at clojure.lang.Var.applyTo(Var.java:476)
;;  at clojure.main.main(main.java:37)
;; Caused by: java.lang.ExceptionInInitializerError
;;  at sun.reflect.NativeConstructorAccessorImpl.newInstance0(Native Method)
;;  at sun.reflect.NativeConstructorAccessorImpl.newInstance(NativeConstructorAccessorImpl.java:57)
;;  at sun.reflect.DelegatingConstructorAccessorImpl.newInstance(DelegatingConstructorAccessorImpl.java:45)
;;  at java.lang.reflect.Constructor.newInstance(Constructor.java:532)
;;  at java.lang.Class.newInstance0(Class.java:372)
;;  at java.lang.Class.newInstance(Class.java:325)
;;  at clojure.lang.Compiler$FnExpr.eval(Compiler.java:3476)
;;  at clojure.lang.Compiler.eval(Compiler.java:4600)
;;  ... 10 more
;; Caused by: java.lang.RuntimeException: java.lang.ClassNotFoundException: macro.bughunt$wrap_fn__9$fn__11
;;  at clojure.lang.RT.readString(RT.java:1205)
;;  at macro.bughunt$eval__24.<clinit>(bughunt.clj:9)
;;  ... 18 more
;; Caused by: java.lang.ClassNotFoundException: macro.bughunt$wrap_fn__9$fn__11
;;  at java.net.URLClassLoader$1.run(URLClassLoader.java:217)
;;  at java.security.AccessController.doPrivileged(Native Method)
;;  at java.net.URLClassLoader.findClass(URLClassLoader.java:205)
;;  at clojure.lang.DynamicClassLoader.findClass(DynamicClassLoader.java:55)
;;  at java.lang.ClassLoader.loadClass(ClassLoader.java:323)
;;  at java.lang.ClassLoader.loadClass(ClassLoader.java:268)
;;  at java.lang.ClassLoader.loadClassInternal(ClassLoader.java:336)
;;  at java.lang.Class.forName0(Native Method)
;;  at java.lang.Class.forName(Class.java:264)
;;  at clojure.lang.RT.classForName(RT.java:1504)
;;  at clojure.lang.LispReader$EvalReader.invoke(LispReader.java:945)
;;  at clojure.lang.LispReader$DispatchReader.invoke(LispReader.java:540)
;;  at clojure.lang.LispReader.read(LispReader.java:145)
;;  at clojure.lang.RT.readString(RT.java:1202)
;;  ... 19 more

Generated by Phil Hagelberg using scpaste at Wed Sep 2 22:03:00 2009. PDT. (raw)