while-let: Keep looping while let bindings are truthy

while_let.clj

(defmacro while-let
  "While all bindings are truthy, execute body. Useful for draining
channels, buffers, anything that can be read, etc."
  [bindings & body]
  (let [pairs (partition 2 bindings)
        test-exprs (map second pairs)
        test-vals (map first pairs)]
    `(loop ~bindings
       (if (and ~@test-vals)
         (do
           ~@body
           (recur ~@test-exprs))))))