;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql.lisp,v 1.16 2003/08/08 09:20:51 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
(in-package #:umlisp)
(defvar +umls-sql-map+
- '((:2002AD . "KUMLS2002AD") (:2003AA . "KUMLS2003AA")
- (:2003AB . "KUMLS2003AB")))
-(defvar +default-umls-db+ :2003AB)
+ '((:2002AD . "KUMLS2002AD") (:2003AA . "KUMLS2003AA"))
+ (:2003AB . "KUMLS2003AB") (:2003AC . "KUMLS2003AC")
+ (:2004AA . "KUMLS2004AA"))
+(defvar +default-umls-db+ :2003AC)
(defun lookup-db-name (db)