X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql.lisp;fp=sql.lisp;h=83f38e97164311bea10885f4f95866bfc18800d9;hb=e34ed32c0c1b5fa230505357e71add61ab0b5c87;hp=d2900d6d2a8bb40231d52cac24d6cc18b08e3c19;hpb=f8c80d433d78aa6df55309a6c04a80d3b7f1c679;p=umlisp.git

diff --git a/sql.lisp b/sql.lisp
index d2900d6..83f38e9 100644
--- a/sql.lisp
+++ b/sql.lisp
@@ -32,7 +32,11 @@
   *umls-sql-db*)
 
 (defun umls-sql-db! (db)
-  (setq *umls-sql-db* db))
+  (etypecase db
+    (string
+     (setq *umls-sql-db* db))
+    (keyword
+     (setq *umls-sql-db* (lookup-db-name db)))))
 
 (defvar *umls-sql-user* "secret")
 (defun umls-sql-user ()
@@ -62,10 +66,13 @@
   (sql-disconnect-pooled)
   (setq *umls-sql-type* h))
 
+(defun umls-connection-spec ()
+  (list *umls-sql-host* *umls-sql-db*
+        *umls-sql-user* *umls-sql-passwd*))
+
 (defun sql-connect ()
   "Connect to UMLS database, automatically used pooled connections"
-  (clsql:connect (list *umls-sql-host* (lookup-db-name *umls-sql-db*)
-		       *umls-sql-user* *umls-sql-passwd*)
+  (clsql:connect (umls-connection-spec)
 		 :database-type *umls-sql-type* :pool t))
 
 (defun sql-disconnect (conn)