diff options
-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 |