user.clj

(in-ns 'clojure.core)
;; make reloading namespaces work with proxy!

(defn proxy-name**
 {:tag String}
 [^Class super interfaces]
 (let [inames (into1 (sorted-set) (map #(.getName ^Class %) interfaces))
        ihashes (into1 (sorted-set) (map #(System/identityHashCode %) interfaces))]
    (apply str (.replace (str *ns*) \- \_) ".proxy"
      (interleave (repeat "$")
        (concat
          [(.getName super)]
          (map #(subs % (inc (.lastIndexOf ^String % "."))) inames)
          [(Integer/toHexString (hash ihashes))])))))

(defn proxy-name
 {:tag String}
 [^Class super interfaces]
 (let [r (proxy-name** super interfaces)]
   (println "using patched proxy-name" [super interfaces] r)
   r))