+ (translate-files "MRXW.NONEN" extension (noneng-lang-index-files)))
+
+(defun translate-files (output-basename extension input-files)
+ "Translate a umls file into a format suitable for sql copy cmd"
+ (let ((output-path (umls-pathname output-basename extension)))
+ (if (probe-file output-path)
+ (format t "File ~A already exists: skipping~%" output-path)
+ (with-open-file (ostream output-path :direction :output)
+ (dolist (input-file input-files)
+ (with-umls-file (line (umls-file-fil input-file))
+ (umls-translate input-file line ostream)
+ (princ #\newline ostream)))))))