X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=data-structures.lisp;h=a52c97de2968c7d4274d4570f1192b2445f0c86d;hb=f513e7b50135115f3c56b840c2cb0d1c9c8ffa82;hp=d13b7099116f41f1885235bc15c54951246c0268;hpb=0ececd07987c48de78c14a60136014a2df7b280b;p=umlisp.git

diff --git a/data-structures.lisp b/data-structures.lisp
index d13b709..a52c97d 100644
--- 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*