From: Nathan Bird <nathan@acceleration.net>
Date: Fri, 5 Mar 2010 22:05:21 +0000 (-0500)
Subject: Adding docstring warning on clear-con-pool
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=8b3d6ea42a982d60b4db9116e6aa9b94372cccbd

Adding docstring warning on clear-con-pool
---

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