-(defvar *umls-path*
- (kboot:find-directory
- '((nil (:absolute "data" "umls" "2002AC"))
- (nil (:absolute "data" "umls" "2002AB"))
- (nil (:absolute "data" "umls" "UMLS2001"))
- #+mswindows ("F" (:absolute "umls" "2002ac"))
- #+mswindows ("C" (:absolute "umls"))
- #+mswindows ("F" (:absolute "umls" "UMLS2001"))
- ))