r11509: fix number of arguments to handler-case :no-error form

diff --git a/sql/pool.lisp b/sql/pool.lisp
index f6c6c40a2bf06dac25895552e67bd38ea49d57cf..959481d3439f9512f9d375eaaf29266e0e3220b9 100644 (file)
--- a/sql/pool.lisp
+++ b/sql/pool.lisp
@@ -50,8 +50,8 @@ Disconnecting.~%"
                          pconn e)
                    (disconnect :database pconn :error nil)
                    nil)
                          pconn e)
                    (disconnect :database pconn :error nil)
                    nil)

-                 (:no-error (res)
-                   (declare (ignore res))
+                 (:no-error (res fields)
+                   (declare (ignore res fields))

                    pconn)))
               (t
                pconn)))))
                    pconn)))
               (t
                pconn)))))