r3247: *** empty log message ***

diff --git a/debian/changelog b/debian/changelog
index ae483afc73c9751f429e7e8ed56f03e3db023b5c..eb261c5b9b924e5322434c17e99258fa4c949dd7 100644 (file)
--- 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.
 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 4eff915d3da66e0b66f3ece991ca1f319c59ef0b..1fc2baa802e1da09f8cf62dea016b57dce7b42df 100644 (file)
--- a/sql/pool.lisp
+++ b/sql/pool.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg, Marc Battyani
 ;;;; Date Started:  Apr 2002
 ;;;;
 ;;;; 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
 ;;;;
 ;;;;
 ;;;; 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
    (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")
 
 (defun acquire-from-conn-pool (pool)
   (or (with-process-lock ((conn-pool-lock pool) "Acquire from pool")