echo through wasn't going through :/

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)