(defn aliasable-clj-ns?
"Predicate for testing with a symbol represents an aliasable clojure namespace."
[sym]
(when-not (util/ns->source sym)
(let [[seg1 :as segs] (string/split (clojure.core/name sym) #"\.")]
(when (= "clojure" seg1)
(let [sym' (clj-ns->cljs-ns sym)]
(util/ns->source sym'))))))