[PATCH] Connection pool

Good day,

It is probably a bug that every new connection added to connection
pool becomes *default-database* also. Here is a patch.

--- clsql-3.5.0.orig/sql/pool.lisp	2004-10-25 05:02:42.000000000 +0600
+++ clsql-3.5.0/sql/pool.lisp	2006-01-07 03:48:19.000000000 +0500
@@ -37,7 +37,8 @@
 	     (vector-pop (free-connections pool))))
       (let ((conn (connect (connection-spec pool)
 			   :database-type (pool-database-type pool)
-			   :if-exists :new)))
+			   :if-exists :new
+                           :make-default nil)))
 	(with-process-lock ((conn-pool-lock pool) "Acquire from pool")
 	  (vector-push-extend conn (all-connections pool))
 	  (setf (conn-pool conn) pool))

Best Regards,
Vladimir Sekissov