(bases c)
Returns the immediate prototype of c
(defn bases [c] (when c (let [s (.getPrototypeOf js/Object c)] (when s (list s)))))