r11657: 25 Apr 2007 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / sql / pool.lisp

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