Simple way to find files recursively and evaluate a body there

simple-recursive.el

(defmacro go-files (base-dir &rest body)
  "Recursively open files, visiting each one and running BODY there."
  `(recursive-files ,base-dir '(progn ,@body)))

(defun recursive-files (dir form)
  (loop
   for (file is-dir) in (directory-files-and-attributes
                         dir
                         t
                         ;; Ignore "." and ".." directories, but is too aggressive
                         "^[^.]+$")
   if is-dir
     do (recursive-files file form)
   else
     do (with-current-buffer (find-file-noselect file)
                          (eval form))))