From 272d30e8e22098e674dc5e153166a45aeaf097ca Mon Sep 17 00:00:00 2001
From: davidnolen <david.nolen@gmail.com>
Date: Mon, 9 Jun 2025 22:55:31 -0400
Subject: [PATCH 1/2] * lower print-map   - lift pr-map-entry-helper   -
 lift-ns uses array of MapEntry instead of actual map

---
 src/main/cljs/cljs/core.cljs | 48 ++++++++++++++++++++----------------
 1 file changed, 27 insertions(+), 21 deletions(-)

diff --git a/src/main/cljs/cljs/core.cljs b/src/main/cljs/cljs/core.cljs
index 5c94309c4..b3d9a802b 100644
--- a/src/main/cljs/cljs/core.cljs
+++ b/src/main/cljs/cljs/core.cljs
@@ -10520,6 +10520,12 @@ reduces them without incurring seq initialization"
        (implements? IMeta obj)
        (not (nil? (meta obj)))))
 
+(defn- pr-map-entry [k v]
+  (reify
+    IMapEntry
+    (-key [_] k)
+    (-val [_] v)))
+
 (defn- pr-writer-impl
   [obj writer opts]
   (cond
@@ -10557,12 +10563,9 @@ reduces them without incurring seq initialization"
             (.map
               (js-keys obj)
               (fn [k]
-                (reify
-                  IMapEntry
-                  (-key [_]
-                    (cond-> k (some? (.match k #"^[A-Za-z_\*\+\?!\-'][\w\*\+\?!\-']*$")) keyword))
-                  (-val [_]
-                    (unchecked-get obj k)))))
+                (pr-map-entry
+                  (cond-> k (some? (.match k #"^[A-Za-z_\*\+\?!\-'][\w\*\+\?!\-']*$")) keyword)
+                  (unchecked-get obj k))))
             pr-writer writer opts))
 
         (array? obj)
@@ -10731,20 +10734,22 @@ reduces them without incurring seq initialization"
     (keyword nil (name named))))
 
 (defn- lift-ns
-  "Returns [lifted-ns lifted-map] or nil if m can't be lifted."
+  "Returns #js [lifted-ns lifted-map] or nil if m can't be lifted."
   [m]
   (when *print-namespace-maps*
-    (loop [ns nil
-           [[k v :as entry] & entries] (seq m)
-           lm (empty m)]
-      (if entry
-        (when (or (keyword? k) (symbol? k))
-          (if ns
-            (when (= ns (namespace k))
-              (recur ns entries (assoc lm (strip-ns k) v)))
-            (when-let [new-ns (namespace k)]
-              (recur new-ns entries (assoc lm (strip-ns k) v)))))
-        [ns lm]))))
+    (let [lm #js []]
+      (loop [ns nil
+             [[k v :as entry] & entries] (seq m)]
+        (if entry
+          (when (or (keyword? k) (symbol? k))
+            (if ns
+              (when (= ns (namespace k))
+                (.push lm (pr-map-entry (strip-ns k) v))
+                (recur ns entries))
+              (when-let [new-ns (namespace k)]
+                (.push lm (pr-map-entry (strip-ns k) v))
+                (recur new-ns entries))))
+          #js [ns lm])))))
 
 (defn print-prefix-map [prefix m print-one writer opts]
   (pr-sequential-writer
@@ -10757,10 +10762,11 @@ reduces them without incurring seq initialization"
     opts (seq m)))
 
 (defn print-map [m print-one writer opts]
-  (let [[ns lift-map] (when (map? m)
-                        (lift-ns m))]
+  (let [ns&lift-map (when (map? m)
+                      (lift-ns m))
+        ns (some-> ns&lift-map (aget 0))]
     (if ns
-      (print-prefix-map (str "#:" ns) lift-map print-one writer opts)
+      (print-prefix-map (str "#:" ns) (aget ns&lift-map 1) print-one writer opts)
       (print-prefix-map nil m print-one writer opts))))
 
 (extend-protocol IPrintWithWriter

From 94ca12648d56a97cf8fa11c3075eecbb7364006a Mon Sep 17 00:00:00 2001
From: davidnolen <david.nolen@gmail.com>
Date: Mon, 9 Jun 2025 23:20:16 -0400
Subject: [PATCH 2/2] * pr-map-entry needs to be ISeqable

---
 src/main/cljs/cljs/core.cljs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/main/cljs/cljs/core.cljs b/src/main/cljs/cljs/core.cljs
index b3d9a802b..12025eaac 100644
--- a/src/main/cljs/cljs/core.cljs
+++ b/src/main/cljs/cljs/core.cljs
@@ -10524,7 +10524,9 @@ reduces them without incurring seq initialization"
   (reify
     IMapEntry
     (-key [_] k)
-    (-val [_] v)))
+    (-val [_] v)
+    ISeqable
+    (-seq [_] (IndexedSeq. #js [k v] 0 nil))))
 
 (defn- pr-writer-impl
   [obj writer opts]