From 0d4cb96505d958c3abebebd5a9b9941e291d7889 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 23 Oct 2004 03:56:54 +0000 Subject: [PATCH] r10104: ignore errors when closing connections --- sql/pool.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.34.1