X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=data-structures.lisp;h=e658c1063a643d7f208b87a6117422e33f207873;hb=d6fa830c8e84a5c18b47eaf56ec924095d358efb;hp=2db16ae8a8738e715c614b5a761bebe21c0e5b89;hpb=6c10979737dc10b0c510b1edfe070346bcac3ff5;p=umlisp.git

diff --git a/data-structures.lisp b/data-structures.lisp
index 2db16ae..e658c10 100644
--- a/data-structures.lisp
+++ b/data-structures.lisp
@@ -8,7 +8,7 @@
 ;;;; Created:  Apr 2000
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2010 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2011 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.
@@ -18,17 +18,17 @@
 
 ;;; Paths for files
 
-(defparameter *release* "2010AA")
+(defparameter *release* "2017AA")
 
 (defparameter *umls-path*
-  (make-pathname :directory (list :absolute "srv" "umls" *release*))
+  (make-pathname :directory (list :absolute "srv" "umls" *release* *release*))
   "Path for base of UMLS data files")
 
 (defparameter *meta-dir*
   (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")))
@@ -111,5 +111,3 @@
 (defmethod print-object ((obj ucol) s)
   (print-unreadable-object (obj s :type t)
     (format s "~A" (col obj))))
-
-