X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Fpool.lisp;h=5573025b63183524de6062444b0f7114868d4840;hb=c41d81c0d1233372012a1de93fcdfd6b2a6e5618;hp=1ac0a37b5b550374c0a55d0fd58b60feae0a220a;hpb=6a10245b9f5d84290c280eb583f97e1ddaa9cbe5;p=clsql.git

diff --git a/sql/pool.lisp b/sql/pool.lisp
index 1ac0a37..5573025 100644
--- a/sql/pool.lisp
+++ b/sql/pool.lisp
@@ -48,7 +48,7 @@
   ~S
 Disconnecting.~%"
                          pconn e)
-                   (ignore-errors (database-disconnect :database pconn))
+                   (ignore-errors (database-disconnect pconn))
                    nil)
                  (:no-error (res fields)
                    (declare (ignore res fields))