r11766:

[clsql.git] / sql / pool.lisp

diff --git a/sql/pool.lisp b/sql/pool.lisp
index 959481d3439f9512f9d375eaaf29266e0e3220b9..5573025b63183524de6062444b0f7114868d4840 100644 (file)
--- 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 pconn))
                    nil)
                  (:no-error (res fields)
                    (declare (ignore res fields))