gistfile1.el

  (cl-loop for (source-file . dest-file) in files
           for info-path = (expand-file-name
                            (concat (file-name-sans-extension dest-file)
                                    ".info")
                            target-dir)
           if (string-match ".texi\\(nfo\\)?$" source-file)
           if (not (file-exists-p info-path))
           do (ignore-errors
                (pb/run-process
                 nil
                 "makeinfo"
                 (expand-file-name source-file source-dir)
                 "-o"
                 info-path))
           do (delete-file (message (expand-file-name dest-file target-dir)))))

gistfile2.el

  (cl-loop for (source-file . dest-file) in files
           for info-path = (expand-file-name
                            (concat (file-name-sans-extension dest-file)
                                    ".info")
                            target-dir)
           if (string-match ".texi\\(nfo\\)?$" source-file)
           do (when (not (file-exists-p info-path))
                (ignore-errors
                  (pb/run-process
                   nil
                   "makeinfo"
                   (expand-file-name source-file source-dir)
                   "-o"
                   info-path)))
           and do (delete-file (message (expand-file-name dest-file target-dir)))))