r2953: *** empty log message ***

[umlisp.git] / data-structures.lisp

diff --git a/data-structures.lisp b/data-structures.lisp
index d13b7099116f41f1885235bc15c54951246c0268..a52c97de2968c7d4274d4570f1192b2445f0c86d 100644 (file)
--- a/data-structures.lisp
+++ b/data-structures.lisp
@@ -1,19 +1,12 @@
-;;;; $Id: data-structures.lisp,v 1.1 2002/10/05 20:17:14 kevin Exp $
+;;;; $Id: data-structures.lisp,v 1.2 2002/10/09 00:34:47 kevin Exp $
 
 (in-package :umlisp)
 
 
 ;;; Paths for files
 
-(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"))
-       ))
+(defvar *umls-path*
+  (make-pathname :directory '(:absolute "data" "umls" "2002AC"))
   "Path for base of UMLS data files")
 
 (defvar *meta-path*