Update for release 2017AA

diff --git a/data-structures.lisp b/data-structures.lisp
index d76a5c23697e18379dc2e36df819554ca20f5f33..e658c1063a643d7f208b87a6117422e33f207873 100644 (file)
--- a/data-structures.lisp
+++ b/data-structures.lisp
@@ -18,7 +18,7 @@
 
 ;;; Paths for files
 
-(defparameter *release* "2014AB")
+(defparameter *release* "2017AA")
 
 (defparameter *umls-path*
   (make-pathname :directory (list :absolute "srv" "umls" *release* *release*))
@@ -28,7 +28,7 @@
   (make-pathname :directory '(:relative "META")))
 
 (defparameter *lex-dir*
-  (make-pathname :directory '(:relative "LEX")))
+  (make-pathname :directory '(:relative "LEX" "LEX")))
 
 (defparameter *net-dir*
   (make-pathname :directory '(:relative "NET")))

diff --git a/parse-rrf.lisp b/parse-rrf.lisp
index 5e28ed5ca8a9f82f6cb9c89233e6e677b4fdf5cd..2d943ea55508c2c5f1331fb5a67e8b57723ef7c1 100644 (file)
--- a/parse-rrf.lisp
+++ b/parse-rrf.lisp
@@ -439,7 +439,7 @@ SNOMED SRL changed from 4 to 9. So we create a new scale ~
 
 (defun gen-ufiles ()
   (add-ufiles (gen-ufiles-generic "MRFILES.RRF" "META"))
-  (add-ufiles (gen-ufiles-generic "LRFIL" "LEX"))
+  (add-ufiles (gen-ufiles-generic "LRFIL" "LEX/LEX"))
   (add-ufiles (gen-ufiles-generic "SRFIL" "NET"))
   ;; needs to come last
   (add-ufiles (gen-ufiles-custom)))