From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 30 Oct 2002 19:09:52 +0000 (+0000)
Subject: r3247: *** empty log message ***
X-Git-Tag: v3.8.6~894
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=7a034d49f78c43da768ea24b324d60881ff67d7a

r3247: *** empty log message ***
---

diff --git a/debian/changelog b/debian/changelog
index ae483af..eb261c5 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (1.2.1-1) unstable; urgency=low
+
+  * New upstream version
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Wed, 30 Oct 2002 12:08:03 -0700
+
 cl-sql (1.2.0-3) unstable; urgency=low
 
   * Move cl-sql-base package architecture from any to all.
diff --git a/sql/pool.lisp b/sql/pool.lisp
index 4eff915..1fc2baa 100644
--- a/sql/pool.lisp
+++ b/sql/pool.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg, Marc Battyani
 ;;;; Date Started:  Apr 2002
 ;;;;
-;;;; $Id: pool.lisp,v 1.3 2002/10/21 14:11:09 kevin Exp $
+;;;; $Id: pool.lisp,v 1.4 2002/10/30 19:08:08 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -49,7 +49,7 @@
    (all-connections :accessor all-connections
 		    :initform (make-array 5 :fill-pointer 0 :adjustable t))
    (lock :accessor conn-pool-lock
-	 :initform (make-lock "Connection pool"))))
+	 :initform (make-process-lock "Connection pool"))))
 
 (defun acquire-from-conn-pool (pool)
   (or (with-process-lock ((conn-pool-lock pool) "Acquire from pool")