X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=parse-2002.lisp;h=aa9c46a6c423dc0bfb00c7f5eea4b4601484f0b7;hb=aeade16272b79115d3f307906c7a3e9597137e97;hp=53c6d6358dae1c471325ac6979db8425492329e5;hpb=338a01c81745f9b58eb126e6f5ab9523dbd05fb0;p=umlisp.git

diff --git a/parse-2002.lisp b/parse-2002.lisp
index 53c6d63..aa9c46a 100644
--- a/parse-2002.lisp
+++ b/parse-2002.lisp
@@ -2,16 +2,16 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Name:          parse-2002.lisp
-;;;; Purpose:       Parsing and SQL insertion routines for UMLisp which may
-;;;;                change from year to year
-;;;; Author:        Kevin M. Rosenberg
-;;;; Date Started:  Apr 2000
+;;;; Name:     parse-2002.lisp
+;;;; Purpose:  Parsing and SQL insertion routines for UMLisp which may
+;;;;           change from year to year
+;;;; Author:   Kevin M. Rosenberg
+;;;; Created:  Apr 2000
 ;;;;
-;;;; $Id: parse-2002.lisp,v 1.14 2003/06/11 01:42:03 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2003 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.
@@ -19,9 +19,6 @@
 
 (in-package #:umlisp)
 
-(eval-when (:compile-toplevel)
-  (declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3))))
-
 ;;; Pre-read data for custom fields into hash tables
 (defvar *preparse-hash-init?* nil)
 
@@ -122,11 +119,12 @@
 ;;; sql-i - Integer (32-bit)
 ;;; sql-l - Big integer (64-bit)
 ;;; sql-f - Floating point
+;;; sql-c - Character data
 
 (defparameter +col-datatypes+
     '(("AV" sql-f) ("BTS" sql-i) ("CLS" sql-i) ("COF" sql-i) ("CUI1" sql-u)
       ("CUI2" sql-u) ("CUI" sql-u) ("CXN" sql-s) ("FR" sql-i) ("LRL" sql-s)
-      ("LUI" sql-u) ("MAX" sql-s) ("MIN" sql-s) ("RANK" sql-s) ("REF" sql-s)
+      ("LUI" sql-u) ("MAX" sql-s) ("MIN" sql-s) ("RANK" sql-s) ("REF" sql-c)
       ("RNK" sql-s) ("RWS" sql-i) ("SRL" sql-s) ("SUI" sql-u) ("TUI" sql-u)
       ;;; Custom columns
       ("KCUISUI" sql-l) ("KCUILUI" sql-l) ("KCUILRL" sql-i) ("KLUILRL" sql-i)
@@ -254,18 +252,6 @@
       ("VCUI" "MRSAB") ("LAT" "MRSAB"))
   "Columns in files to index")
 
-(defvar +relationship-abbreviations+
-  '(("RB" "Broader" "has a broader relationship")
-    ("RN" "Narrower" "has a narrower relationship")
-    ("RO" "Other related" "has relationship other than synonymous, narrower, or broader")
-    ("RL" "Like" "the two concepts are similar or 'alike'.  In the current edition of the Metathesaurus, most relationships with this attribute are mappings provided by a source")
-    ("RQ" "Unspecified" "unspecified source asserted relatedness, possibly synonymous")
-    ("SY" "Source Synonymy" "source asserted synonymy")
-    ("PAR" "Parent" "has parent relationship in a Metathesaurus source vocabulary")
-    ("CHD" "Child" "has child relationship in a Metathesaurus source vocabulary")
-    ("SIB" "Sibling" "has sibling relationship in a Metathesaurus source vocabulary")
-    ("AQ" "Allowed" "is an allowed qualifier for a concept in a Metathesaurus source vocabulary")
-    ("QB" "Qualified" "can be qualified by a concept in a Metathesaurus source vocabulary")))
 
 (defparameter +custom-index-cols+
   nil