From: Marc Battyani <marc.battyani@fractalconcept.com>
Date: Sat, 4 May 2002 16:21:27 +0000 (+0000)
Subject: r1905: removed with-db-from-pool
X-Git-Tag: v3.8.6~1125
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=d7ce4b7d7f6582325dfef2d5d251032c7327e3c4

r1905: removed with-db-from-pool
with-database now works with the pool
---

diff --git a/ChangeLog b/ChangeLog
index 3813416..99cf1dd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+04 May 2002 Marc Battyani (marc.battyani@fractalconcept.com)
+	* sql/sql.cl:
+	* sql/pool.cl:
+	* sql/functional.cl:
+	Added pool support in connect/disconnect and with-database.
+	Removed with-db-from-pool as with-database can now works with the connections pool
+
 01 May 2002 Marc Battyani (marc.battyani@fractalconcept.com)
 	* sql/sql.cl:
 	* sql/pool.cl:
diff --git a/sql/pool.cl b/sql/pool.cl
index 9e94dea..6468c56 100644
--- a/sql/pool.cl
+++ b/sql/pool.cl
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg, Marc Battyani
 ;;;; Date Started:  Apr 2002
 ;;;;
-;;;; $Id: pool.cl,v 1.4 2002/05/03 20:50:18 marc.battyani Exp $
+;;;; $Id: pool.cl,v 1.5 2002/05/04 16:21:27 marc.battyani Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -77,16 +77,3 @@
   (when clear (clrhash *db-pool*))
   t)
 
-;;; with-db-from-pool is the macro you should use if you want to use pooled connections.
-;;; You can use it with a connection spec and database type or directly with a conn-pool.
-;;; When you give a conn-pool the connection spec and database type are ignored
-
-(defmacro with-db-from-pool ((db-var connection-spec database-type &optional conn-pool) &body body)
-  "Evaluate the body in an environment, where `db-var' is bound to a
-database connection acquired from the connection pool
-The connection is automatically released to the connection pool on exit from the body.
-If a pool is given then the connection-spec database-type are ignored."
-  `(let ((,db-var (acquire-from-pool ,connection-spec ,database-type ,conn-pool)))
-     (unwind-protect
-	  (let ((,db-var ,db-var)) ,@body)
-       (release-to-pool ,db-var))))