(with-umls-file (line (umls-file-fil input-file))
(umls-translate input-file line ostream)
(princ #\newline ostream)))))))
(defun translate-umls-file (file extension)
"Translate a umls file into a format suitable for sql copy cmd"
(with-umls-file (line (umls-file-fil input-file))
(umls-translate input-file line ostream)
(princ #\newline ostream)))))))
(defun translate-umls-file (file extension)
"Translate a umls file into a format suitable for sql copy cmd"