(,ustream (umls-pathname ,filename)
:direction :input :if-exists :overwrite)
(do ((,line (read-buffered-fields ,buffer ,ustream) (read-buffered-fields ,buffer ,ustream)))
(,ustream (umls-pathname ,filename)
:direction :input :if-exists :overwrite)
(do ((,line (read-buffered-fields ,buffer ,ustream) (read-buffered-fields ,buffer ,ustream)))