X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=data-structures.lisp;h=c7e3f683f8a30b0fa939923317f0e9fa659b17e1;hb=c01a3503e58ba9d4e7fadb42f3f0f69c38496e10;hp=5f86198b396c32da53aa0cdcdcfda5f56d00c112;hpb=e34ed32c0c1b5fa230505357e71add61ab0b5c87;p=umlisp.git

diff --git a/data-structures.lisp b/data-structures.lisp
index 5f86198..c7e3f68 100644
--- a/data-structures.lisp
+++ b/data-structures.lisp
@@ -20,7 +20,7 @@
 
 ;;; Paths for files
 
-(defparameter *release* "2006AC")
+(defparameter *release* "2006AD")
 
 (defparameter *umls-path*
   (make-pathname :directory (list :absolute "srv" "umls" *release*))
@@ -45,7 +45,9 @@
   (merge-pathnames *net-dir* *umls-path*))
 
 (defun umls-path! (p)
-  (setq *umls-path* p)
+  (setq *umls-path* (etypecase p
+                      (string (parse-namestring p))
+                      (pathname p)))
   (setq *meta-path* (merge-pathnames *meta-dir* *umls-path*))
   (setq *lex-path* (merge-pathnames *lex-dir* *umls-path*))
   (setq *net-path* (merge-pathnames *net-dir* *umls-path*)))