public
/
backplane-dns
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

echo through wasn't going through :/

This commit is contained in:
Niten 2020-11-15 16:25:28 -08:00
parent cbda9609f3
commit bfad36c9d2
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
backplane-server.lisp
View File

@ -98,9 +98,6 @@
forms forms
:initial-value init))))) :initial-value init)))))
(defun echo-through (obj &optional msg)
(format t "~A: ~S" msg obj))
(defmethod xmpp:handle ((conn xmpp:connection) (message xmpp:message)) (defmethod xmpp:handle ((conn xmpp:connection) (message xmpp:message))
(let ((sender (xmpp:from message))) (let ((sender (xmpp:from message)))
(format *standard-output* "message received from ~A" sender) (format *standard-output* "message received from ~A" sender)
@ -110,8 +107,7 @@
(xmpp:body) (xmpp:body)
(decode-message) (decode-message)
(dispatch-parse-message sender) (dispatch-parse-message sender)
(handle-message) (handle-message))))))
(echo-through "RESPONSE"))))))
(let ((backplane nil)) (let ((backplane nil))
(defun backplane-connect (xmpp-host xmpp-username xmpp-password) (defun backplane-connect (xmpp-host xmpp-username xmpp-password)