From d6fa830c8e84a5c18b47eaf56ec924095d358efb Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 17 Jun 2017 20:32:18 -0600 Subject: [PATCH] Update for release 2017AA --- data-structures.lisp | 4 ++-- parse-rrf.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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))) -- 2.34.1