X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fpool.lisp;h=587ad9da953995b0675ed6dca0aec7d75c3400a0;hp=b0e228f2be7b297d57a714b5e028cb23b457c91c;hb=748f18aeaee5e0512317657a86f7a019f06e12de;hpb=8a8ee2d7d791b7a3efaed06420802a925d16fca3

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)