clsql/sql pool.lisp,1.4,1.5

Update of /pubcvs/clsql/sql
In directory boa.b9.com:/tmp/cvs-serv31633/sql

Modified Files:
	pool.lisp 
Log Message:


Index: pool.lisp
===================================================================
RCS file: /pubcvs/clsql/sql/pool.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** pool.lisp	30 Oct 2002 19:08:08 -0000	1.4
--- pool.lisp	8 Aug 2003 09:04:13 -0000	1.5
***************
*** 3,7 ****
  ;;;; FILE IDENTIFICATION
  ;;;;
! ;;;; Name:          pool.cl
  ;;;; Purpose:       Support function for connection pool
  ;;;; Programmers:   Kevin M. Rosenberg, Marc Battyani
--- 3,7 ----
  ;;;; FILE IDENTIFICATION
  ;;;;
! ;;;; Name:          pool.lisp
  ;;;; Purpose:       Support function for connection pool
  ;;;; Programmers:   Kevin M. Rosenberg, Marc Battyani
***************
*** 10,14 ****
  ;;;; $Id$
  ;;;;
! ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
  ;;;;
  ;;;; CLSQL users are granted the rights to distribute and use this software
--- 10,14 ----
  ;;;; $Id$
  ;;;;
! ;;;; This file, part of CLSQL, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
  ;;;;
  ;;;; CLSQL users are granted the rights to distribute and use this software
***************
*** 17,22 ****
  ;;;; *************************************************************************
  
! (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
! (in-package :clsql-sys)
  
  (defun make-process-lock (name) 
--- 17,21 ----
  ;;;; *************************************************************************
  
! (in-package clsql-sys)
  
  (defun make-process-lock (name) 
***************
*** 80,84 ****
  (defun find-or-create-connection-pool (connection-spec database-type)
    "Find connection pool in hash table, creates a new connection pool if not found"
!   (with-process-lock (*db-pool-lock* "Find connection")
      (let* ((key (list connection-spec database-type))
  	   (conn-pool (gethash key *db-pool*)))
--- 79,83 ----
  (defun find-or-create-connection-pool (connection-spec database-type)
    "Find connection pool in hash table, creates a new connection pool if not found"
!   (with-process-lock (*db-pool-lock* "Find-or-create connection")
      (let* ((key (list connection-spec database-type))
  	   (conn-pool (gethash key *db-pool*)))
***************
*** 100,104 ****
  (defun disconnect-pooled (&optional clear)
    "Disconnects all connections in the pool"
!   (with-process-lock (*db-pool-lock* "Find connection")
      (maphash
       #'(lambda (key conn-pool)
--- 99,103 ----
  (defun disconnect-pooled (&optional clear)
    "Disconnects all connections in the pool"
!   (with-process-lock (*db-pool-lock* "Disconnect pooled")
      (maphash
       #'(lambda (key conn-pool)
***************
*** 108,110 ****
      (when clear (clrhash *db-pool*)))
    t)
- 
--- 107,108 ----