+(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*)))