r11471: update to latest release

diff --git a/data-structures.lisp b/data-structures.lisp
index 5f86198b396c32da53aa0cdcdcfda5f56d00c112..c7e3f683f8a30b0fa939923317f0e9fa659b17e1 100644 (file)
--- a/data-structures.lisp
+++ b/data-structures.lisp
@@ -20,7 +20,7 @@
 
 ;;; Paths for files
 
 
 ;;; Paths for files
 

-(defparameter *release* "2006AC")
+(defparameter *release* "2006AD")

 
 (defparameter *umls-path*
   (make-pathname :directory (list :absolute "srv" "umls" *release*))
 
 (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)
   (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*)))
   (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*)))