crocket

(defmacro if-let-all
  "if-let-all evaluates every local binding sequentially and evaluates true-case only if every local binding is a truthy value.
true-case has access to all local bindings, but false-case doesn't have access to local bindings."
  [bindings true-case false-case]
  (let [pairs (partition 2 bindings)
        names (mapv first pairs)
        exprs (map second pairs)
        exprs-in-if-let (fn self [[name1 & more-names] [expr1 & more-exprs]]
                         `(if-let [~name1 ~expr1]
                            ~(if more-names