X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fpool.lisp;h=8a891f41b49b4d930061348c63f0e63b123c0e0c;hb=8b3d6ea42a982d60b4db9116e6aa9b94372cccbd;hp=66cbaf76125d10b2a0ee600ae8044148635d3a44;hpb=06f8ade4128c181776b8018fc73b0b9e1f383a25;p=clsql.git

diff --git a/sql/pool.lisp b/sql/pool.lisp
index 66cbaf7..8a891f4 100644
--- a/sql/pool.lisp
+++ b/sql/pool.lisp
@@ -121,6 +121,8 @@ chance to do cleanup."
 	 (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