-(defvar *umls-sql-dsn* "KUMLS2002AC")
-(defun umls-sql-dsn ()
- *umls-sql-dsn*)
-(defun umls-sql-dsn! (dbname)
- (sql-disconnect-pooled)
- (setq *umls-sql-dsn* dbname))
+
+(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)
+ (setq *umls-sql-db* db))