From 7590531d031f82e575c8423d3de72ab47136aace Mon Sep 17 00:00:00 2001
From: Niten <niten@fudo.org>
Date: Fri, 13 Nov 2020 21:01:02 -0800
Subject: [PATCH] Echo response for debugging

---
 backplane-server.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/backplane-server.lisp b/backplane-server.lisp
index 9a7156f..949e94d 100644
--- a/backplane-server.lisp
+++ b/backplane-server.lisp
@@ -96,6 +96,9 @@
                   forms
                   :initial-value init)))))
 
+(defun echo-through (obj &optional msg)
+  (format t "~A: ~S" msg obj))
+
 (defmethod xmpp:handle ((conn xmpp:connection) (message xmpp:message))
   (let ((sender (xmpp:from message)))
     (format *standard-output* "message received from ~A" sender)
@@ -105,7 +108,8 @@
                                             (xmpp:body)
                                             (decode-message)
                                             (dispatch-parse-message sender)
-                                            (handle-message))))))
+                                            (handle-message)
+                                            (echo-through "RESPONSE"))))))
 
 (let ((backplane nil))
   (defun backplane-connect (xmpp-host xmpp-username xmpp-password)