From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Thu, 25 Jan 2007 08:22:32 +0000 (+0000)
Subject: r11509: fix number of arguments to handler-case :no-error form
X-Git-Tag: v3.8.6~21
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=42d018079e9fd199417068b5bb4e9f232a75c5ec

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

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)))))