;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: data-structures.lisp
-;;;; Purpose: Basic data objects for UMLisp
-;;;; Author: Kevin M. Rosenberg
-;;;; Date Started: Apr 2000
+;;;; Name: data-structures.lisp
+;;;; Purpose: Basic data objects for UMLisp
+;;;; Author: Kevin M. Rosenberg
+;;;; Created: Apr 2000
;;;;
-;;;; $Id: data-structures.lisp,v 1.11 2003/05/11 22:10:05 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of UMLisp, is
-;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
+;;;; Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
;;;;
;;;; UMLisp users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
(in-package #:umlisp)
-(eval-when (:compile-toplevel)
- (declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3))))
-
;;; Paths for files
(defvar *umls-path*
- (make-pathname :directory '(:absolute "data" "umls" "2003AA"))
+ (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 ()