From b92e0259d32da34329245e9ed96f31dc52d04d8b Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sun, 28 Apr 2002 00:50:17 +0000
Subject: [PATCH] r1802: fix typos with pooled connections

---
 sql/classes.cl | 4 ++--
 sql/package.cl | 5 ++++-
 sql/pool.cl    | 6 +++---
 3 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/sql/classes.cl b/sql/classes.cl
index 72e44c7..0a195a8 100644
--- a/sql/classes.cl
+++ b/sql/classes.cl
@@ -8,7 +8,7 @@
 ;;;;                 original code by Pierre R. Mai 
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: classes.cl,v 1.3 2002/04/27 21:48:08 kevin Exp $
+;;;; $Id: classes.cl,v 1.4 2002/04/28 00:50:17 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -26,7 +26,7 @@
   ((name :initarg :name :reader database-name)
    (connection-spec :initarg :connection-spec :reader connection-spec
 		    :documentation "Require to use connection pool")
-   (transaction-level :accessor transaction-level))
+   (transaction-level :initarg :transaction-level :accessor transaction-level))
   (:default-initargs :name nil :connection-spec nil :transaction-level 0)
   (:documentation
    "This class is the supertype of all databases handled by CLSQL."))
diff --git a/sql/package.cl b/sql/package.cl
index e5097ae..166e42a 100644
--- a/sql/package.cl
+++ b/sql/package.cl
@@ -8,7 +8,7 @@
 ;;;;                Original code by Pierre R. Mai 
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: package.cl,v 1.9 2002/04/27 21:48:08 kevin Exp $
+;;;; $Id: package.cl,v 1.10 2002/04/28 00:50:17 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -51,6 +51,9 @@
      #:database-sequence-next
     
      #:sql-escape
+
+     ;; Support for pooled connections
+     #:database-type
      
      ;; Large objects (Marc B)
      #:database-create-large-object
diff --git a/sql/pool.cl b/sql/pool.cl
index 298f1e3..14efa23 100644
--- a/sql/pool.cl
+++ b/sql/pool.cl
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2002
 ;;;;
-;;;; $Id: pool.cl,v 1.1 2002/04/27 20:58:11 kevin Exp $
+;;;; $Id: pool.cl,v 1.2 2002/04/28 00:50:17 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -28,10 +28,10 @@
 (defun find-or-create-conn-vector (connection-spec database-type)
   "Find connection vector in hash table, creates a new conn-vector if not found"
   (let* ((key (list connection-spec database-type))
-	 (conn-vector (gethash *db-pool* key)))
+	 (conn-vector (gethash key *db-pool*)))
     (unless conn-vector
       (setq conn-vector (make-conn-vector))
-      (setf (gethash *db-pool* key) conn-vector))
+      (setf (gethash key *db-pool*) conn-vector))
     conn-vector))
 
 (defun acquire-from-pool (connection-spec database-type)
-- 
2.34.1