A macro evaluates body, like with-open. Names are bound to line-seqs of readers.

with_read_lines.clj

(defmacro with-read-lines [reader bindings & body]
  (cond
    (= (count bindings) 0) `(do ~@body)
    (symbol? (bindings 0)) `(let* [rdr# (~reader ~(bindings 1))
                                   ~(bindings 0) (line-seq rdr#)]
                              (try
                                (with-read-lines ~reader ~(subvec bindings 2) ~@body)
                                (finally
                                  (. rdr# close))))
    :else (throw (IllegalArgumentException.
                   "with-read-lines only allows Symbols in bindings"))))

(defn eg []
  (with-read-lines clojure.java.io/reader [x "x.txt"
                                           y "y.txt"]
    (println (vec x))
    (println (vec y)))

x.txt

a
b
c

y.txt

1
2
3