diff options
author | Rich Hickey <richhickey@gmail.com> | 2010-04-15 12:19:14 -0400 |
---|---|---|
committer | Rich Hickey <richhickey@gmail.com> | 2010-04-15 12:19:14 -0400 |
commit | 8eebaa15498bb461276c0c978bfe97d257e65f7d (patch) | |
tree | 903f308fb23222a63ad3fc973f8123f59e9e3d66 | |
parent | 1eb878646f465bacc5ffb90173ad11898ae39151 (diff) |
don't warn on unbound protocol vars
-rw-r--r-- | src/clj/clojure/core_deftype.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/core_deftype.clj b/src/clj/clojure/core_deftype.clj index ece4086a..40d21c7d 100644 --- a/src/clj/clojure/core_deftype.clj +++ b/src/clj/clojure/core_deftype.clj @@ -448,7 +448,7 @@ (doseq [m method-syms] (let [v (resolve m) p (:protocol (meta v))] - (when-not (or (nil? v) (= protocol-var p)) + (when (and v (bound? v) (not= protocol-var p)) (binding [*out* *err*] (println "Warning: protocol" protocol-var "is overwriting" (if p |