Loading vast numbers of classes

(ns org.tomhume.so.LoadManyClasses)
(use 'org.tomhume.so.Bytecode)

(defn test-class
  "Makes class number n"
  [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))))