projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4548dab
)
Adding docstring warning on clear-con-pool
author
Nathan Bird
<nathan@acceleration.net>
Fri, 5 Mar 2010 22:05:21 +0000
(17:05 -0500)
committer
Nathan Bird
<nathan@acceleration.net>
Tue, 21 Jun 2011 19:49:54 +0000
(15:49 -0400)
sql/pool.lisp
patch
|
blob
|
history
diff --git
a/sql/pool.lisp
b/sql/pool.lisp
index e4f4b608b6d429549ae2d868cd64dcce920b54d3..820789f03eba1696f6c1d628fedd40c8e0ef348a 100644
(file)
--- a/
sql/pool.lisp
+++ b/
sql/pool.lisp
@@
-122,6
+122,8
@@
chance to do cleanup."
(database-execute-command "DISCARD ALL" database)))))
(defun clear-conn-pool (pool)
(database-execute-command "DISCARD ALL" database)))))
(defun clear-conn-pool (pool)
+ "Be careful this function will disconnect connections without regard
+to whether another thread is actively using them."
(with-process-lock ((conn-pool-lock pool) "Clear pool")
(mapc #'%pool-force-disconnect (all-connections pool))
(setf (all-connections pool) nil
(with-process-lock ((conn-pool-lock pool) "Clear pool")
(mapc #'%pool-force-disconnect (all-connections pool))
(setf (all-connections pool) nil