-(defun read-umls-line-new (strm)
- "Read a line from a UMLS stream, split into fields"
- (let ((line (read-line strm nil 'eof)))
- (if (stringp line) ;; ensure not 'eof
- (delimited-string-to-list line #\| t)
- line)))
-
-(defun read-umls-line (strm)