From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 23 Oct 2004 03:56:54 +0000 (+0000)
Subject: r10104: ignore errors when closing connections
X-Git-Tag: v3.8.6~216
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=0d4cb96505d958c3abebebd5a9b9941e291d7889

r10104: ignore errors when closing connections
---

diff --git a/sql/pool.lisp b/sql/pool.lisp
index b0e228f..587ad9d 100644
--- a/sql/pool.lisp
+++ b/sql/pool.lisp
@@ -52,7 +52,8 @@
   (with-process-lock ((conn-pool-lock pool) "Clear pool")
     (loop for conn across (all-connections pool)
 	  do (setf (conn-pool conn) nil)
-	  (disconnect :database conn))
+	  ;; disconnect may error if remote side closed connection
+	  (ignore-errors (disconnect :database conn)))
     (setf (fill-pointer (free-connections pool)) 0)
     (setf (fill-pointer (all-connections pool)) 0))
   nil)