From 42d018079e9fd199417068b5bb4e9f232a75c5ec Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Thu, 25 Jan 2007 08:22:32 +0000
Subject: [PATCH] r11509: fix number of arguments to handler-case :no-error
 form

---
 sql/pool.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sql/pool.lisp b/sql/pool.lisp
index f6c6c40..959481d 100644
--- a/sql/pool.lisp
+++ b/sql/pool.lisp
@@ -50,8 +50,8 @@ Disconnecting.~%"
                          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)))))
-- 
2.34.1