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
-          (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)