Adding docstring warning on clear-con-pool

diff --git a/sql/pool.lisp b/sql/pool.lisp
index 66cbaf76125d10b2a0ee600ae8044148635d3a44..8a891f41b49b4d930061348c63f0e63b123c0e0c 100644 (file)
--- 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