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

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