From ef77d7cf08ab0c8385fe0f8ada7f063490e32f77 Mon Sep 17 00:00:00 2001
From: saturn <saturn@glxl.net>
Date: Sun, 3 Oct 2021 17:54:36 -0500
Subject: [PATCH] Add keep-alive in call-with-http-response.

---
 src/backend.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/backend.lisp b/src/backend.lisp
index 1cecc828..b6785da7 100644
--- a/src/backend.lisp
+++ b/src/backend.lisp
@@ -159,7 +159,7 @@
 				   (invoke-restart r)
 				   (maybe-retry)))))
 	   (setf (values response status-code headers response-uri new-stream)
-		 (apply 'dex:request uri :use-connection-pool nil :stream stream args))
+		 (apply 'dex:request uri :use-connection-pool nil :keep-alive t :stream stream args))
 	   (unless (eq stream new-stream)
 	     (when stream (ignore-errors (close stream :abort t)))
 	     (setf stream new-stream
-- 
2.11.4.GIT