wl.lsp

(defmacro with-lines (line-sym path &rest body)
  (let ((f-sym (gensym)))
    `(with-open-file (,f-sym ,path)
       (do ((,line-sym (read-line ,f-sym nil)
                       (read-line ,f-sym nil)))
           ((null ,line-sym))
         ,@body))))