(with-open-file (,ustream (first ,files) :direction :input
#+(and clisp unicode) :external-format
#+(and clisp unicode) charset:utf-8)
(do ((,line (read-umls-line ,ustream ,eof)
(read-umls-line ,ustream ,eof)))
((eq ,line ,eof) t)
(with-open-file (,ustream (first ,files) :direction :input
#+(and clisp unicode) :external-format
#+(and clisp unicode) charset:utf-8)
(do ((,line (read-umls-line ,ustream ,eof)
(read-umls-line ,ustream ,eof)))
((eq ,line ,eof) t)