(return-from ensure-preparse 'already-done))
(make-preparse-hash-table)
(let ((counter 0))
- (declare (fixnum counter))
+ (declare (fixnum counter)
+ (ignorable counter))
(with-umls-file (line "MRCONSO.RRF")
(let ((cui (parse-ui (nth 0 line)))
(lui (parse-ui (nth 3 line)))
("SUI" "MRCONSO") ("SAUI" "MRCONSO") ("CODE" "MRCONSO")
("SCUI" "MRCONSO")
("CUI" "MRDEF")
- ("CUI1" "MRREL") ("CUI2" "MRREL")
+ ("CUI1" "MRREL") ("CUI2" "MRREL") ("SAB" "MRREL")
("RUI" "MRREL") ("AUI1" "MRREL") ("AUI2" "MRREL")
("CUI" "MRSAT") ("LUI" "MRSAT") ("SUI" "MRSAT")
("METAUI" "MRSAT") ("ATN" "MRSAT")