r11509: fix number of arguments to handler-case :no-error form
authorKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 25 Jan 2007 08:22:32 +0000 (08:22 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 25 Jan 2007 08:22:32 +0000 (08:22 +0000)
sql/pool.lisp

index f6c6c40..959481d 100644 (file)
@@ -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)))))