- Code: Select all
[1]> (ql:quickload "cl-xmpp")
To load "cl-xmpp":
Load 1 ASDF system:
cl-xmpp
; Loading "cl-xmpp"
;;; Checking for wide character support... WARNING: Lisp implementation doesn't use UTF-16, but accepts surrogate code points.
yes, using code points.
;;; Checking for wide character support... WARNING: Lisp implementation doesn't use UTF-16, but accepts surrogate code points.
yes, using code points.
;;; Building Closure with CHARACTER RUNES
.
("cl-xmpp")
[2]> (defvar *connection* (xmpp:connect :hostname "jabber.at"))
<?xml version='1.0' ?><stream:stream to='jabber.at' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' version='1.0'>
UNHANDLED: #<XML-ELEMENT STREAM:STREAM (6attr:0child:0data) #x2120E07E>
UNHANDLED: #<XML-ELEMENT STREAM:FEATURES (0attr:5child:0data) #x212356FE>
*CONNECTION*
[3]> (xmpp:auth *connection* "rcbot" "mypassword" "home")
<iq id="auth2" type="set"><query xmlns="jabber:iq:auth"><username>rcbot</username><password>mypassword</password><resource>home</resource></query></iq>
Name: TEXT
Unable to find error class for NIL.
UNHANDLED: #<XMPP-PROTOCOL-ERROR code:NIL name:NIL #x21264536>
*** - Received error.
The following restarts are available:
ABORT :R1 Abort main loop
Break 1 [4]>
I know getting help with a specific library is a long shot, but any ideas? I'm tempted to set up a helper demon in another language to handle the xmpp side of things.