(sql-disconnect-pooled)
(setq *umls-sql-user* u))
(defvar *umls-sql-passwd* "secret")
(defun umls-sql-passwd ()
*umls-sql-passwd*)
(sql-disconnect-pooled)
(setq *umls-sql-user* u))
(defvar *umls-sql-passwd* "secret")
(defun umls-sql-passwd ()
*umls-sql-passwd*)
(defun sql-connect ()
"Connect to UMLS database, automatically used pooled connections"
(clsql:connect (umls-connection-spec)
(defun sql-connect ()
"Connect to UMLS database, automatically used pooled connections"
(clsql:connect (umls-connection-spec)
(defun sql-disconnect (conn)
"Disconnect from UMLS database, but put connection back into pool"
(defun sql-disconnect (conn)
"Disconnect from UMLS database, but put connection back into pool"