From bfad36c9d223c7c8949fab50424c32a11164cd3a Mon Sep 17 00:00:00 2001
From: Niten <niten@fudo.org>
Date: Sun, 15 Nov 2020 16:25:28 -0800
Subject: [PATCH] echo through wasn't going through :/

---
 backplane-server.lisp | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/backplane-server.lisp b/backplane-server.lisp
index b441143..39a9cb7 100644
--- a/backplane-server.lisp
+++ b/backplane-server.lisp
@@ -98,9 +98,6 @@
                   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)
@@ -110,8 +107,7 @@
                                             (xmpp:body)
                                             (decode-message)
                                             (dispatch-parse-message sender)
-                                            (handle-message)
-                                            (echo-through "RESPONSE"))))))
+                                            (handle-message))))))
 
 (let ((backplane nil))
   (defun backplane-connect (xmpp-host xmpp-username xmpp-password)