projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9d560e5
)
r10104: ignore errors when closing connections
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 23 Oct 2004 03:56:54 +0000
(
03:56
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 23 Oct 2004 03:56:54 +0000
(
03:56
+0000)
sql/pool.lisp
patch
|
blob
|
history
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)
- (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)