X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fpool.lisp;h=1ac0a37b5b550374c0a55d0fd58b60feae0a220a;hp=959481d3439f9512f9d375eaaf29266e0e3220b9;hb=1b07d2fd927cf8f1943ac0a0b8c980d1dc707076;hpb=42d018079e9fd199417068b5bb4e9f232a75c5ec

diff --git a/sql/pool.lisp b/sql/pool.lisp
index 959481d..1ac0a37 100644
--- a/sql/pool.lisp
+++ b/sql/pool.lisp
@@ -48,7 +48,7 @@
   ~S
 Disconnecting.~%"
                          pconn e)
-                   (disconnect :database pconn :error nil)
+                   (ignore-errors (database-disconnect :database pconn))
                    nil)
                  (:no-error (res fields)
                    (declare (ignore res fields))