feat: Add let-traced

Author: zane

src/gen/dynamic.clj

@@ -208,3 +208,14 @@
                                  :else
                                  form))
                          body)))))
+
+(defmacro let-traced
+  [bindings & body]
+  (let [bents (partition 2 bindings)]
+    (assert (every? symbol? (map first bents)))
+    (assert (every? call? (map second bents)))
+    `(let ~(into []
+                 (mapcat (fn [[sym expr]]
+                           [sym `(gen/trace (quote ~sym) ~expr)]))
+                 bents)
+       ~@body)))