wrap-body-mapper middleware doesn't seem to be functional

[leetwinski]

while trying to use wrap-body-mapper, noticed that it doesn't actually set the mapped body to the response.
Maybe i've just misunderstood the intention though..
Shouldn't it be something like

diff --git a/src/middleware/response.lisp b/src/middleware/response.lisp
index 6029c38..943b231 100644
--- a/src/middleware/response.lisp
+++ b/src/middleware/response.lisp
@@ -46,4 +46,7 @@
   (wrap-response-mapper handler (lambda (res) (clone-response res :body body))))
 
 (defun wrap-response-body-mapper (handler body-mapper)
-  (wrap-response-mapper handler (lambda (res) (funcall body-mapper (response-body res)))))
+  (wrap-response-mapper
+   handler
+   (lambda (res)
+     (clone-response res :body (funcall body-mapper (response-body res))))))