[dex] Clear connection pool on cron end

utils.lisp

@@ -424,8 +424,10 @@ is replaced with replacement."
         (scheduler (symbol-append name '-scheduler)))
     `(progn
        (defun ,name ()
-         (handler-case (progn ,@body)
-           (error (e) (log:error e))))
+         (unwind-protect
+              (handler-case (progn ,@body)
+                (error (e) (log:error e)))
+           (dex:clear-connection-pool)))
        (defun ,scheduler ()
          (clon:schedule-function
           ',name (clon:make-scheduler