X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=parse-rrf.lisp;h=90ddc78c5c887f479108c6c5ee0a49de45f23b24;hb=cd04d9b4eb279317e6b5911034a7911c6d61d288;hp=4e23fb7a6c4adba2dce167837b34d80a1f475209;hpb=3af8a7f021e7dcd1e369df1601a2bfb83350f340;p=umlisp.git

diff --git a/parse-rrf.lisp b/parse-rrf.lisp
index 4e23fb7..90ddc78 100644
--- a/parse-rrf.lisp
+++ b/parse-rrf.lisp
@@ -52,7 +52,8 @@
       (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)))
@@ -220,7 +221,7 @@
       ("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")