(incf translated-lines)))
(dolist (input-ufile input-ufiles)
(with-umls-ufile (line input-ufile)
(incf translated-lines)))
(dolist (input-ufile input-ufiles)
(with-umls-ufile (line input-ufile)
((< input-lines translated-lines)
(format t "Translated file ~A incomplete, deleting...~%" output-path)
(delete-file output-path)
((< input-lines translated-lines)
(format t "Translated file ~A incomplete, deleting...~%" output-path)
(delete-file output-path)
((eql input-lines translated-lines)
(format t "Translated file ~A already exists: skipping...~%" output-path)
t)
((eql input-lines translated-lines)
(format t "Translated file ~A already exists: skipping...~%" output-path)
t)
((> translated-lines input-lines)
(error "Shouldn't happen. Translated lines of ~A is ~D, greater than input lines ~D"
output-path translated-lines input-lines)
((> translated-lines input-lines)
(error "Shouldn't happen. Translated lines of ~A is ~D, greater than input lines ~D"
output-path translated-lines input-lines)