(do ((,line (read-umls-line ,ustream ,eof)
(read-umls-line ,ustream ,eof)))
((eq ,line ,eof) t)
(do ((,line (read-umls-line ,ustream ,eof)
(read-umls-line ,ustream ,eof)))
((eq ,line ,eof) t)
(defmacro with-umls-ufile ((line ufile) &body body)
"Opens a UMLS and processes each parsed line with (body) argument"
(defmacro with-umls-ufile ((line ufile) &body body)
"Opens a UMLS and processes each parsed line with (body) argument"