projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8928: add probe-database,create-database,destroy-database
[clsql.git]
/
db-postgresql-socket
/
postgresql-socket-sql.lisp
diff --git
a/db-postgresql-socket/postgresql-socket-sql.lisp
b/db-postgresql-socket/postgresql-socket-sql.lisp
index 7df3dc7de361498165a6b717d9c2b29d7e1c1f45..9a2f02d04b60d843defdbae8ba9b298c8bc3c8e7 100644
(file)
--- a/
db-postgresql-socket/postgresql-socket-sql.lisp
+++ b/
db-postgresql-socket/postgresql-socket-sql.lisp
@@
-446,9
+446,11
@@
doesn't depend on UFFI."
(let ((database (database-connect (list host "template1" user password)
type)))
(unwind-protect
(let ((database (database-connect (list host "template1" user password)
type)))
(unwind-protect
- (find name (database-query "select datname from pg_database"
- database :auto)
- :key #'car :test #'string-equal)
+ (when
+ (find name (database-query "select datname from pg_database"
+ database :auto)
+ :key #'car :test #'string-equal)
+ t)
(database-disconnect database)))))
(when (clsql-base-sys:database-type-library-loaded :postgresql-socket)
(database-disconnect database)))))
(when (clsql-base-sys:database-type-library-loaded :postgresql-socket)