r11510: disconnect pooled session already removed from stack with
authorKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 25 Jan 2007 08:52:23 +0000 (08:52 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 25 Jan 2007 08:52:23 +0000 (08:52 +0000)
database-disconnect rather than the higher level disconnect fn

sql/pool.lisp

index 959481d..1ac0a37 100644 (file)
@@ -48,7 +48,7 @@
   ~S
 Disconnecting.~%"
                          pconn e)
-                   (disconnect :database pconn :error nil)
+                   (ignore-errors (database-disconnect :database pconn))
                    nil)
                  (:no-error (res fields)
                    (declare (ignore res fields))