r10104: ignore errors when closing connections

diff --git a/sql/pool.lisp b/sql/pool.lisp
index b0e228f2be7b297d57a714b5e028cb23b457c91c..587ad9da953995b0675ed6dca0aec7d75c3400a0 100644 (file)
--- 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)
   (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)
     (setf (fill-pointer (free-connections pool)) 0)
     (setf (fill-pointer (all-connections pool)) 0))
   nil)