(when verbose (format t "UMLS Import: Importing file ~A.~%" file))
(sql-execute (funcall copy-cmd file extension) conn))
(When verbose (format t "UMLS Import: Creating SQL indices.~%"))
(when verbose (format t "UMLS Import: Importing file ~A.~%" file))
(sql-execute (funcall copy-cmd file extension) conn))
(When verbose (format t "UMLS Import: Creating SQL indices.~%"))