;;; Paths for files
-(defparameter *release* "2006AC")
+(defparameter *release* "2006AD")
(defparameter *umls-path*
(make-pathname :directory (list :absolute "srv" "umls" *release*))
(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*)))