cpp-vs-pp.diff

--- /var/folders/r_/pv69pzqn2gd02b4d0hq617hm0000gq/T/pp/cpp.clj	2023-10-03 00:05:14
+++ /var/folders/r_/pv69pzqn2gd02b4d0hq617hm0000gq/T/pp/pp.clj	2023-10-03 00:05:14
@@ -26,9 +26,7 @@
         (conj v (name spec))
         (let
          [p (first spec) cs (rest spec)]
-         (into1
-          v
-          (map (fn* [p1__45589#] (str p "." p1__45589#)) cs)))))
+         (into1 v (map (fn* [p1__45589#] (str p "." p1__45589#)) cs)))))
       []
       specs))))))
 (defn
@@ -78,9 +76,7 @@
       fs))
     ([x y z]
      (reduce1
-      (fn*
-       [p1__45614# p2__45615#]
-       (conj p1__45614# (p2__45615# x y z)))
+      (fn* [p1__45614# p2__45615#] (conj p1__45614# (p2__45615# x y z)))
       []
       fs))
     ([x y z & args]
@@ -209,9 +205,7 @@
        (fn
         [[m s]]
         (map
-         (fn*
-          [p1__45626#]
-          (overload-name m (map the-class p1__45626#)))
+         (fn* [p1__45626#] (overload-name m (map the-class p1__45626#)))
          s))
        overloads)
       (mapcat (comp (partial map str) vals val) exposes))))
@@ -290,9 +284,7 @@
       end-label
       (. gen (newLabel))]
      (add-annotations gen (meta name))
-     (dotimes
-      [i (count pmetas)]
-      (add-annotations gen (nth pmetas i) i))
+     (dotimes [i (count pmetas)] (add-annotations gen (nth pmetas i) i))
      (. gen (visitCode))
      (if
       (> (count pclasses) 18)
@@ -511,11 +503,7 @@
       gen
       (invokeInterface
        ifn-type
-       (new
-        Method
-        "invoke"
-        obj-type
-        (arg-types (inc (count ptypes))))))
+       (new Method "invoke" obj-type (arg-types (inc (count ptypes))))))
      (. gen pop)
      (. gen goTo end-post-init-label)
      (. gen mark no-post-init-label)
@@ -724,8 +712,7 @@
  (if
   (.map cache)
   (let
-   [cs
-    (assoc (.map cache) c (clojure.lang.MethodImplCache$Entry. c f))]
+   [cs (assoc (.map cache) c (clojure.lang.MethodImplCache$Entry. c f))]
    (clojure.lang.MethodImplCache.
     (.sym cache)
     (.protocol cache)
@@ -952,8 +939,7 @@
                              (clojure.core/list
                               (clojure.core/seq
                                (clojure.core/concat
-                                (clojure.core/list
-                                 'meta__45668__auto__)
+                                (clojure.core/list 'meta__45668__auto__)
                                 gargs)))
                              (clojure.core/list
                               (clojure.core/seq
@@ -963,8 +949,7 @@
                                 (clojure.core/list
                                  (clojure.core/seq
                                   (clojure.core/concat
-                                   (clojure.core/list
-                                    'f__45667__auto__)
+                                   (clojure.core/list 'f__45667__auto__)
                                    gargs)))
                                 (clojure.core/list
                                  (clojure.core/seq
@@ -1052,8 +1037,7 @@
  "params => positional-params*, or positional-params* & rest-param\n  positional-param => binding-form\n  rest-param => binding-form\n  binding-form => name, or destructuring-form\n\n  Defines a function.\n\n  See https://clojure.org/reference/special_forms#fn for more information"
  {:added "1.0",
   :special-form true,
-  :forms
-  '[(fn name? [params*] exprs*) (fn name? ([params*] exprs*) +)]}
+  :forms '[(fn name? [params*] exprs*) (fn name? ([params*] exprs*) +)]}
  [& sigs]
  (let
   [name
@@ -2081,8 +2065,7 @@
      (clojure.core/seq
       (clojure.core/concat
        (clojure.core/list 'deftype*)
-       (clojure.core/list
-        (symbol (name (ns-name *ns*)) (name tagname)))
+       (clojure.core/list (symbol (name (ns-name *ns*)) (name tagname)))
        (clojure.core/list classname)
        (clojure.core/list
         (conj hinted-fields '__meta '__extmap '__hash '__hasheq))
@@ -2099,8 +2082,7 @@
   [[proto mmap] (partition 2 proto+mmaps)]
   (when-not
    (protocol? proto)
-   (throw
-    (IllegalArgumentException. (str proto " is not a protocol"))))
+   (throw (IllegalArgumentException. (str proto " is not a protocol"))))
   (when
    (implements? proto atype)
    (throw
@@ -2121,10 +2103,7 @@
    (symbol (str (munge (namespace-munge *ns*)) "." (munge name)))
    [opts sigs]
    (loop
-    [opts
-     {:on (list 'quote iname), :on-interface iname}
-     sigs
-     opts+sigs]
+    [opts {:on (list 'quote iname), :on-interface iname} sigs opts+sigs]
     (condp
      (fn* [p1__45811# p2__45812#] (p1__45811# p2__45812#))
      (first sigs)
@@ -2429,8 +2408,7 @@
                      (clojure.core/list
                       (clojure.core/seq
                        (clojure.core/concat
-                        (clojure.core/list
-                         'clojure.core/nanoTime)))))))
+                        (clojure.core/list 'clojure.core/nanoTime)))))))
                   (clojure.core/list 'start__45820__auto__)))))))
             (clojure.core/list 1000000.0))))
          (clojure.core/list " msecs")))))))
@@ -2450,17 +2428,12 @@
      more
      (let
       [w (first more) kw (k w)]
-      (if
-       (>= kw kv)
-       (recur w kw (next more))
-       (recur v kv (next more))))
+      (if (>= kw kv) (recur w kw (next more)) (recur v kv (next more))))
      v)))))
 (defmacro
  loop
  "Evaluates the exprs in a lexical context in which the symbols in\n  the binding-forms are bound to their respective init-exprs or parts\n  therein. Acts as a recur target."
- {:added "1.0",
-  :special-form true,
-  :forms '[(loop [bindings*] exprs*)]}
+ {:added "1.0", :special-form true, :forms '[(loop [bindings*] exprs*)]}
  [bindings & body]
  (assert-args
   (vector? bindings)
@@ -2549,8 +2522,7 @@
      (when
       (contains? (ta tag) parent)
       (throw
-       (Exception.
-        (print-str tag "already has" parent "as ancestor"))))
+       (Exception. (print-str tag "already has" parent "as ancestor"))))
      (when
       (contains? (ta parent) tag)
       (throw
@@ -2587,9 +2559,7 @@
       [shift
        mask
        (case-map
-        (fn*
-         [p1__45860#]
-         (shift-mask shift mask (hashcode p1__45860#)))
+        (fn* [p1__45860#] (shift-mask shift mask (hashcode p1__45860#)))
         identity
         tests
         thens)
@@ -2968,8 +2938,7 @@
                                            (clojure.core/list '.nth)
                                            (clojure.core/list
                                             'c__45879__auto__)
-                                           (clojure.core/list
-                                            gi))))))))
+                                           (clojure.core/list gi))))))))
                                     (clojure.core/list
                                      (do-cmod mod-pairs)))))
                                  (clojure.core/list 'true)))))))
@@ -2981,8 +2950,7 @@
                               (clojure.core/list
                                (clojure.core/seq
                                 (clojure.core/concat
-                                 (clojure.core/list
-                                  'clojure.core/chunk)
+                                 (clojure.core/list 'clojure.core/chunk)
                                  (clojure.core/list gb))))
                               (clojure.core/list
                                (clojure.core/seq
@@ -3002,8 +2970,7 @@
                               (clojure.core/list
                                (clojure.core/seq
                                 (clojure.core/concat
-                                 (clojure.core/list
-                                  'clojure.core/chunk)
+                                 (clojure.core/list 'clojure.core/chunk)
                                  (clojure.core/list gb))))
                               (clojure.core/list 'nil))))))))))
                      (clojure.core/list
@@ -3053,10 +3020,7 @@
      more
      (let
       [w (first more) kw (k w)]
-      (if
-       (<= kw kv)
-       (recur w kw (next more))
-       (recur v kv (next more))))
+      (if (<= kw kv) (recur w kw (next more)) (recur v kv (next more))))
      v)))))
 (defn
  every-pred
@@ -3119,9 +3083,7 @@
     ([] true)
     ([x] (every? (fn* [p1__45890#] (p1__45890# x)) ps))
     ([x y]
-     (every?
-      (fn* [p1__45891#] (and (p1__45891# x) (p1__45891# y)))
-      ps))
+     (every? (fn* [p1__45891#] (and (p1__45891# x) (p1__45891# y))) ps))
     ([x y z]
      (every?
       (fn*
@@ -3204,10 +3166,7 @@
                    (clojure.core/list gseq))))
                 ret)
                firstb
-               (if
-                has-rest
-                gfirst
-                (list 'clojure.core/nth gvec n nil)))
+               (if has-rest gfirst (list 'clojure.core/nth gvec n nil)))
               (inc n)
               (next bs)
               seen-rest?))))
@@ -3392,16 +3351,7 @@
    ([x] (or (p1 x) (p2 x) (p3 x)))
    ([x y] (or (p1 x) (p1 y) (p2 x) (p2 y) (p3 x) (p3 y)))
    ([x y z]
-    (or
-     (p1 x)
-     (p1 y)
-     (p1 z)
-     (p2 x)
-     (p2 y)
-     (p2 z)
-     (p3 x)
-     (p3 y)
-     (p3 z)))
+    (or (p1 x) (p1 y) (p1 z) (p2 x) (p2 y) (p2 z) (p3 x) (p3 y) (p3 z)))
    ([x y z & args]
     (or
      (sp3 x y z)
@@ -3445,8 +3395,7 @@
     (clojure.core/list
      (clojure.core/seq
       (clojure.core/concat
-       (clojure.core/list
-        'clojure.lang.LockingTransaction/isRunning))))
+       (clojure.core/list 'clojure.lang.LockingTransaction/isRunning))))
     (clojure.core/list
      (clojure.core/seq
       (clojure.core/concat
@@ -3651,9 +3600,7 @@
     (. gen (endMethod)))
    (let
     [m
-     (.
-      Method
-      (getMethod "void readObject(java.io.ObjectInputStream)"))
+     (. Method (getMethod "void readObject(java.io.ObjectInputStream)"))
      gen
      (new GeneratorAdapter (. Opcodes ACC_PRIVATE) m nil nil cv)]
     (. gen (visitCode))
@@ -3704,8 +3651,7 @@
    [m
     (.
      Method
-     (getMethod
-      "clojure.lang.IPersistentMap __getClojureFnMappings()"))
+     (getMethod "clojure.lang.IPersistentMap __getClojureFnMappings()"))
     gen
     (new GeneratorAdapter (. Opcodes ACC_PUBLIC) m nil nil cv)]
    (. gen (visitCode))
@@ -3743,9 +3689,7 @@
             (or
              (considered mk)
              (not
-              (or
-               (Modifier/isPublic mods)
-               (Modifier/isProtected mods)))
+              (or (Modifier/isPublic mods) (Modifier/isProtected mods)))
              (. Modifier (isStatic mods))
              (. Modifier (isFinal mods))
              (= "finalize" (.getName meth)))
@@ -3841,9 +3785,7 @@
  [prefix kvs print-one w]
  (print-sequential
   (str prefix "{")
-  (fn
-   [[k v] w]
-   (do (print-one k w) (.append w \space) (print-one v w)))
+  (fn [[k v] w] (do (print-one k w) (.append w \space) (print-one v w)))
   ", "
   "}"
   kvs