(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)
(dolist (f (remove "MRXW_NONENG.RRF" *umls-files* :test #'string= :key #'fil))
(when verbose (format t "UMLS Import: Translating file ~A.~%" (fil f)))
(return-from translate-files output-path))
(with-open-file (ostream output-path :direction :output
:if-exists :overwrite
+ :if-does-not-exist :create
#+(and clisp unicode) :external-format
#+(and clisp unicode) charset:utf-8)
(dolist (input-ufile input-ufiles)