Update for release 2017AA

[umlisp.git] / data-structures.lisp

diff --git a/data-structures.lisp b/data-structures.lisp
index 10e1c0c38f2e07bba00a417398c11ae114e3b9f6..e658c1063a643d7f208b87a6117422e33f207873 100644 (file)
--- a/data-structures.lisp
+++ b/data-structures.lisp
@@ -18,7 +18,7 @@
 
 ;;; Paths for files
 
-(defparameter *release* "2011AA")
+(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")))
@@ -111,5 +111,3 @@
 (defmethod print-object ((obj ucol) s)
   (print-unreadable-object (obj s :type t)
     (format s "~A" (col obj))))
-
-