(defn- var-interned? [var]
  (let [{:keys [ns name]} (meta var)]
    (ns-resolve ns name)))