| function | since v1.12.134 | Edit |
(supers c)Returns the immediate and indirect prototypes of c, if any
(defn supers
[c]
(loop [ret (set (bases c)) cs ret]
(if (seq cs)
(let [c (first cs) bs (bases c)]
(recur (into ret bs) (into (disj cs c) bs)))
(not-empty ret))))