nilproxy.clj

; Create a proxy for which call methods return nil instead of throwing an
; exception.
;
; This is an ugly hack.  Will probably break in future versions of clojure.
; Probably breaks under certain circumstances with current versions of clojure.
; May run over your dog.

(def nilfn (constantly nil))

(def nilfns
  (reify
    clojure.lang.IPersistentMap
    clojure.lang.ILookup
    (valAt [_ k] nilfn)))

(defmacro nilproxy [class-and-interfaces & [args]]
  `(let [p# (proxy ~class-and-interfaces ~(or args []))]
     (init-proxy p# nilfns)
     p#))

; (.toString (nilproxy [Object])) ;=> nil
; (.clone (nilproxy [Object])) ;=> nil