(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)