- (ns org.tomhume.so.LoadManyClasses)
- (use 'org.tomhume.so.Bytecode)
- (defn test-class
- "Makes class number n"
- (let [class (get-class '(:iload 0 :ireturn) (str "Identity3-" n) "identity" "(I)I")]
- (do (if (= 0 (mod n 1000)) (println n)) true)))
- (time (doall (map #(test-class %) (range 0 100000))))
Loading vast numbers of classes
a guest Jun 4th, 2012 32 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
RAW Paste Data