-(defun translate-all-files (&optional (extension "-trans"))
- "Copy translated files and return postgresql copy commands to import"
- (make-noneng-index-file extension)
+(defun translate-all-files (&key (extension "-trans") verbose force)
+ "Translate all *umls-files* to optimized import format."
+ (when verbose (format t "UMLS Import: Translating file ~A.~%" (fil (find-ufile "MRXW_NONENG.RRF"))))
+ (make-noneng-index-file extension :force force)