X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fpool.lisp;h=820789f03eba1696f6c1d628fedd40c8e0ef348a;hb=d86f73be9a261b9c071ab905aeff5d1ee30a3f31;hp=e4f4b608b6d429549ae2d868cd64dcce920b54d3;hpb=2847fad43e1aa15f934108ce8f5e8dbe1fb1962d;p=clsql.git

diff --git a/sql/pool.lisp b/sql/pool.lisp
index e4f4b60..820789f 100644
--- 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)
+  "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