r1802: fix typos with pooled connections

diff --git a/sql/classes.cl b/sql/classes.cl
index 72e44c7dcb9a6e139d015f0fbea42127836ae8a8..0a195a8519ef8a281c8e49d948e771abfe5b03c9 100644 (file)
--- 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 e5097aec19a71e0b209adb104858bd2ba2e30ffe..166e42ada05844df5ccff12644c7096db3324530 100644 (file)
--- 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 298f1e370890c2d8ad56b59ee3270bc14dd8fdcc..14efa2326ddbc6131e2faeb5a7967f3eeeab0e85 100644 (file)
--- 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)