Adding docstring warning on clear-con-pool

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)
+  "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