;;; Paths for files
(defvar *umls-path*
- (make-pathname :directory '(:absolute "data" "umls" "2003AC"))
+ (make-pathname :directory '(:absolute "data" "umls" "2004AA"))
"Path for base of UMLS data files")
(defvar *meta-path*
;; Preliminary objects to replace structures
(defclass ufile ()
- ((fil :initarg :fil :accessor fil)
+ ((subdir :initarg :subdir :accessor subdir)
+ (dir :initarg :dir :accessor dir)
+ (fil :initarg :fil :accessor fil)
(table :initarg :table :accessor table)
(des :initarg :des :accessor des)
(fmt :initarg :fmt :accessor fmt)
(fields :initarg :fields :accessor fields)
(ucols :initarg :ucols :accessor ucols))
(:default-initargs :fil nil :table nil :des nil :fmt nil :cls nil :rws nil :bts nil
- :fields nil :ucols nil)
+ :fields nil :ucols nil :subdir nil :dir nil)
(:documentation "UMLS File"))
(defclass ucol ()