- (clsql:connect `(,(umls-sql-host) ,(umls-sql-dsn) ,(umls-sql-user) ,(umls-sql-passwd))
- :database-type *umls-sql-type* :pool t))
+ (clsql:connect
+ `(,(umls-sql-host) ,(umls-sql-db) ,(umls-sql-user) ,(umls-sql-passwd))
+ :database-type *umls-sql-type* :pool t))