;;; Paths for files
-(defparameter *release* "2009AB")
+(defparameter *release* "2010AA")
(defparameter *umls-path*
(make-pathname :directory (list :absolute "srv" "umls" *release*))
(defparameter *net-path*
(merge-pathnames *net-dir* *umls-path*))
-(defun umls-path! (p)
+(defun set-umls-path (p)
(setq *umls-path* (etypecase p
(string (parse-namestring p))
(pathname p)))