;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql.lisp,v 1.14 2003/08/08 09:06:06 kevin Exp $
+;;;; $Id$
;;;;
;;;; 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*)
(defun umls-sql-db! (db)
- (unless (eq db *umls-sql-db*)
- (sql-disconnect-pooled))
(setq *umls-sql-db* db))
(umls-sql-db! :2003AB)