Make sure the clojure.core/bases function always returns a seq.

stoyle · stuarthalloway · commit 73f94cb8c7f6 · 2012-08-18T08:31:52.000-04:00
Previously the function returned a clojure.lang.Cons when passed a class and a Java array when passed an interface. Expanded existing test to show that the changed code is correct.

Signed-off-by: Stuart Halloway &lt;stu@thinkrelevance.com&gt;
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
@@ -4918,7 +4918,7 @@
     (let [i (.getInterfaces c)
           s (.getSuperclass c)]
       (not-empty
-       (if s (cons s i) i)))))
+       (if s (cons s i) (seq i))))))
 
 (defn supers
   "Returns the immediate and indirect superclasses and interfaces of c, if any"
diff --git a/test/clojure/test_clojure/java_interop.clj b/test/clojure/test_clojure/java_interop.clj
@@ -154,7 +154,9 @@
       (bases java.lang.Math)
         (list java.lang.Object)
       (bases java.lang.Integer)
-        (list java.lang.Number java.lang.Comparable) ))
+        (list java.lang.Number java.lang.Comparable)
+      (bases java.util.List)
+        (list java.util.Collection) ))
 
 (deftest test-supers
   (are [x y] (= x y)
