+(defparameter *lex-path*
+ (merge-pathnames *lex-dir* *umls-path*))
+
+(defparameter *net-path*
+ (merge-pathnames *net-dir* *umls-path*))
+
+(defun set-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*)))