(sql-drop-tables conn)
(sql-create-tables conn)
(dolist (file *umls-files*)
- (when verbose (format t "UMLS Import: Importing file ~A.~%" file))
+ (when verbose (format t "UMLS Import: Importing file ~A to SQL.~%" (fil file)))
(sql-execute (funcall copy-cmd file extension) conn))
(When verbose (format t "UMLS Import: Creating SQL indices.~%"))
(sql-create-indexes conn :verbose verbose)
"Translate all *umls-files* to optimized import format."
(make-noneng-index-file extension)
(dolist (f (remove "MRXW_NONENG.RRF" *umls-files* :test #'string= :key #'fil))
- (when verbose (format t "UMLS Import: translating file ~S.~%" f))
+ (when verbose (format t "UMLS Import: translating file ~S.~%" (fil f)))
(translate-umls-file f extension)))
(defun translate-umls-file (file extension)