summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRich Hickey <richhickey@gmail.com>2010-04-15 12:19:14 -0400
committerRich Hickey <richhickey@gmail.com>2010-04-15 12:19:14 -0400
commit8eebaa15498bb461276c0c978bfe97d257e65f7d (patch)
tree903f308fb23222a63ad3fc973f8123f59e9e3d66
parent1eb878646f465bacc5ffb90173ad11898ae39151 (diff)
don't warn on unbound protocol vars
-rw-r--r--src/clj/clojure/core_deftype.clj2
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