Echo response for debugging

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)