From 9ba5ee2647740aca7777ac12a21db32837f3f2b6 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Thu, 25 Jan 2007 08:52:23 +0000
Subject: [PATCH] r11510: disconnect pooled session already removed from stack
 with database-disconnect rather than the higher level disconnect fn

---
 sql/pool.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sql/pool.lisp b/sql/pool.lisp
index 959481d..1ac0a37 100644
--- a/sql/pool.lisp
+++ b/sql/pool.lisp
@@ -48,7 +48,7 @@
   ~S
 Disconnecting.~%"
                          pconn e)
-                   (disconnect :database pconn :error nil)
+                   (ignore-errors (database-disconnect :database pconn))
                    nil)
                  (:no-error (res fields)
                    (declare (ignore res fields))
-- 
2.11.4.GIT