;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql.lisp,v 1.15 2003/08/08 09:18:03 kevin Exp $
+;;;; $Id: sql.lisp,v 1.16 2003/08/08 09:20:51 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
(defvar +umls-sql-map+
'((:2002AD . "KUMLS2002AD") (:2003AA . "KUMLS2003AA")
(:2003AB . "KUMLS2003AB")))
-(defvar +default-umls-db+ "KUMLS2003AB")
+(defvar +default-umls-db+ :2003AB)
(defun lookup-db-name (db)
(cdr (assoc (ensure-keyword db) +umls-sql-map+)))
+(defvar *umls-sql-db* +default-umls-db+)
(defun umls-sql-db ()
*umls-sql-db*)