From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 18 Jun 2017 02:32:18 +0000 (-0600)
Subject: Update for release 2017AA
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=d6fa830c8e84a5c18b47eaf56ec924095d358efb

Update for release 2017AA
---

diff --git a/data-structures.lisp b/data-structures.lisp
index d76a5c2..e658c10 100644
--- 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 5e28ed5..2d943ea 100644
--- 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)))