Change default SQL server host

[umlisp.git] / data-structures.lisp

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