gVeysZ6S

1(require :cl-xmpp-tls)
2(defvar *connection* (xmpp:connect-tls :hostname "talk.google.com" :jid-domain-part "gmail.com"))
3(xmpp:auth *connection* "your-gmail-address" "your-password" "cl-xmpp" :mechanism :sasl-plain)
4(xmpp:message *connection* "wassr-bot@wassr.jp" "#lisp test test")