X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fpool.lisp;h=1fc2baa802e1da09f8cf62dea016b57dce7b42df;hp=4eff915d3da66e0b66f3ece991ca1f319c59ef0b;hb=7a034d49f78c43da768ea24b324d60881ff67d7a;hpb=e71d7bdd1319b23041da8dd6838b25ef7301674e

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")