(defun translate-all-files (&key (extension "-trans") verbose force)
"Translate all *umls-files* to optimized import format."
- (make-noneng-index-file extension)
+ (make-noneng-index-file extension :force force)
(dolist (f (remove "MRXW_NONENG.RRF" *umls-files* :test #'string= :key #'fil))
(when verbose (format t "UMLS Import: Translating file ~A.~%" (fil f)))
(translate-umls-file f extension :force force)))