(let ((output-path (ufile-pathname out-ufile extension)))
(if (probe-file output-path)
(format t "File ~A already exists: skipping~%" output-path)
(let ((output-path (ufile-pathname out-ufile extension)))
(if (probe-file output-path)
(format t "File ~A already exists: skipping~%" output-path)