CLJ-2432 lazy require reflect in datafy, add requiring-resolve

Author: stuarthalloway

src/clj/clojure/core.clj

@@ -6070,6 +6070,17 @@
   [& args]
   (apply load-libs :require args))
 
+(defn requiring-resolve
+  "Resolves namespace-qualified sym per 'resolve'. If initial resolve
+fails, attempts to require sym's namespace and retries."
+  {:added "1.10"}
+  [sym]
+  (if (qualified-symbol? sym)
+    (or (resolve sym)
+        (do (-> sym namespace symbol require)
+            (resolve sym)))
+    (throw (IllegalArgumentException. (str "Not a qualified symbol: " sym)))))
+
 (defn use
   "Like 'require, but also refers to each lib's namespace using
   clojure.core/refer. Use :use in the ns macro in preference to calling

src/clj/clojure/datafy.clj

@@ -8,8 +8,7 @@
 
 (ns clojure.datafy
   ^{:doc "Functions to turn objects into data. Alpha, subject to change"}
-  (:require [clojure.core.protocols :as p]
-            [clojure.reflect :as refl]))
+  (:require [clojure.core.protocols :as p]))
 
 (set! *warn-on-reflection* true)
 
@@ -59,5 +58,5 @@
 
   java.lang.Class
   (datafy [c]
-          (let [{:keys [members] :as ret} (refl/reflect c)]
-            (assoc ret :name (-> c .getName symbol) :members (->> members (group-by :name) sortmap)))))
+          (let [{:keys [members] :as ret} ((requiring-resolve 'clojure.reflect/reflect) c)]
+            (assoc ret :name (-> c .getName symbol) :members (->> members (group-by :name) sortmap)))))