diff options
| author | Rich Hickey <richhickey@gmail.com> | 2010-04-16 13:31:05 -0400 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2010-04-16 13:31:05 -0400 |
| commit | b8e04fdc8f72157f3a6f825247ecfc97c86aff91 (patch) | |
| tree | 809b22b2ea05f38a61b2f586dab5cc5d4fc84b77 | |
| parent | f47895ad8a4a8eac74ccc43c60645c9b121e7d0c (diff) | |
guard for nil in implements? test
| -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 4dc27d3a..7fc2a026 100644 --- a/src/clj/clojure/core_deftype.clj +++ b/src/clj/clojure/core_deftype.clj @@ -388,7 +388,7 @@ (get (find-protocol-impl protocol x) methodk)) (defn- implements? [protocol atype] - (.isAssignableFrom #^Class (:on-interface protocol) atype)) + (and atype (.isAssignableFrom #^Class (:on-interface protocol) atype))) (defn extends? "Returns true if atype extends protocol" |