r10868: Automated commit for Debian build of clsql upstream-version-3.5.3

[clsql.git] / sql / pool.lisp

diff --git a/sql/pool.lisp b/sql/pool.lisp
index 587ad9da953995b0675ed6dca0aec7d75c3400a0..6791a6e272368ad232d2318856248b743d74cd98 100644 (file)
--- a/sql/pool.lisp
+++ b/sql/pool.lisp
@@ -37,7 +37,8 @@
             (vector-pop (free-connections pool))))
       (let ((conn (connect (connection-spec pool)
                           :database-type (pool-database-type pool)
-                          :if-exists :new)))
+                          :if-exists :new
+                           :make-default nil)))
        (with-process-lock ((conn-pool-lock pool) "Acquire from pool")
          (vector-push-extend conn (all-connections pool))
          (setf (conn-pool conn) pool))