X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql.lisp;h=6b8ad01aa19e4f56567585e7a921c7da461ba072;hb=8e895602ced5ab847ecc36c1eaa7be1c9a872a22;hp=1c4b0579a413fc1d9ee6277fbc7c7546558389af;hpb=b9fe7fe8b8e24133538f78dbaf6af73b5f0bdec2;p=umlisp.git diff --git a/sql.lisp b/sql.lisp index 1c4b057..6b8ad01 100644 --- a/sql.lisp +++ b/sql.lisp @@ -65,7 +65,7 @@ (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*) + *umls-sql-user* *umls-sql-passwd*) :database-type *umls-sql-type* :pool t)) (defun sql-disconnect (conn)