Trouble connecting with cl-xmpp 0.8.1 to Openfire 3.10.2

Discussion of other useful tools
Post Reply
sturodgers
Posts: 1
Joined: Sat Sep 19, 2015 6:02 am

Trouble connecting with cl-xmpp 0.8.1 to Openfire 3.10.2

Post by sturodgers » Sat Sep 19, 2015 2:44 pm

Good afternoon!

I am having a bit of trouble authenticating using cl-xmpp (0.8.1) to an Openfire server.

Here are the particulars:
cl-xmpp 0.8.1
Steel Bank Common Lisp 1.2.12
Openfire 3.10.2
Operating system: Windows 7 Service Pack 1

Everything in running on the same machine. Computer name is t1gov001.

Below is the console trace of my attempts. Thank you in advance for any questions or suggestions.

This is SBCL 1.2.12, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.

WARNING: the Windows port is fragile, particularly for multithreaded
code. Unfortunately, the development team currently lacks the time
and resources this platform demands.
* (ql:quickload "cl-xmpp-sasl" :verbose t )
To load "cl-xmpp-sasl":
Load 1 ASDF system:
cl-xmpp-sasl
; Loading "cl-xmpp-sasl"
;;; Checking for wide character support... WARNING: Lisp implementation doesn't use UTF-16, but accepts surrogate code p
oints.
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
.........STYLE-WARNING:
Implicitly creating new generic function RUNES-ENCODING::ENCODING-NAMES.
STYLE-WARNING:
Implicitly creating new generic function
(COMMON-LISP:SETF RUNES-ENCODING::ENCODING-NAMES).
STYLE-WARNING:
Implicitly creating new generic function RUNES-ENCODING:DECODE-SEQUENCE.
STYLE-WARNING:
Implicitly creating new generic function RUNES-ENCODING::ENCODING-P.
.STYLE-WARNING:
Implicitly creating new generic function RUNES::XSTREAM-UNDERFLOW.
STYLE-WARNING: Implicitly creating new generic function RUNES::FIGURE-ENCODING.
STYLE-WARNING: Implicitly creating new generic function RUNES::READ-OCTETS.
STYLE-WARNING: Implicitly creating new generic function RUNES::XSTREAM/CLOSE.
STYLE-WARNING: Implicitly creating new generic function RUNES:CLOSE-YSTREAM.
STYLE-WARNING: Implicitly creating new generic function RUNES::FLUSH-YSTREAM.
STYLE-WARNING:
Generic function CLOSE clobbers an earlier FTYPE proclamation
(FUNCTION (STREAM &KEY (:ABORT T)) (VALUES (MEMBER T) &OPTIONAL)) for the
same name with (FUNCTION (T &KEY (:ABORT T)) *).
STYLE-WARNING: Implicitly creating new generic function PURI::POSITION-CHAR.
STYLE-WARNING: Implicitly creating new generic function PURI:URI-P.
STYLE-WARNING: Implicitly creating new generic function PURI:URI-PARSED-PATH.
STYLE-WARNING:
Implicitly creating new generic function
(COMMON-LISP:SETF PURI:URI-PARSED-PATH).
STYLE-WARNING: Implicitly creating new generic function PURI:URI.
STYLE-WARNING: Implicitly creating new generic function PURI:MERGE-URIS.
STYLE-WARNING: Implicitly creating new generic function PURI:ENOUGH-URI.
STYLE-WARNING: Implicitly creating new generic function PURI:INTERN-URI.
STYLE-WARNING:
Implicitly creating new generic function
(COMMON-LISP:SETF SAX:ATTRIBUTE-NAMESPACE-URI).
STYLE-WARNING:
Implicitly creating new generic function
(COMMON-LISP:SETF SAX:ATTRIBUTE-LOCAL-NAME).
STYLE-WARNING:
Implicitly creating new generic function
(COMMON-LISP:SETF SAX:ATTRIBUTE-QNAME).
STYLE-WARNING:
Implicitly creating new generic function
(COMMON-LISP:SETF SAX:ATTRIBUTE-VALUE).
STYLE-WARNING:
Implicitly creating new generic function
(COMMON-LISP:SETF SAX:ATTRIBUTE-SPECIFIED-P).
STYLE-WARNING: Implicitly creating new generic function CXML::PREFER.
STYLE-WARNING: Implicitly creating new generic function CXML::BASE.
.STYLE-WARNING:
Implicitly creating new generic function CXML:PROXY-CHAINED-HANDLER.
STYLE-WARNING:
Implicitly creating new generic function
(COMMON-LISP:SETF CXML:PROXY-CHAINED-HANDLER).
STYLE-WARNING: Implicitly creating new generic function DOM:PREFIX.
STYLE-WARNING: Implicitly creating new generic function DOM:LOCAL-NAME.
STYLE-WARNING: Implicitly creating new generic function DOM:NAMESPACE-URI.
STYLE-WARNING:
Implicitly creating new generic function (COMMON-LISP:SETF DOM:PREFIX).
STYLE-WARNING: Implicitly creating new generic function DOM:CODE.
STYLE-WARNING: Implicitly creating new generic function DOM:HAS-FEATURE.
STYLE-WARNING:
Implicitly creating new generic function DOM:CREATE-DOCUMENT-TYPE.
STYLE-WARNING: Implicitly creating new generic function DOM:CREATE-DOCUMENT.
STYLE-WARNING: Implicitly creating new generic function DOM:IMPLEMENTATION.
STYLE-WARNING: Implicitly creating new generic function DOM:DOCUMENT-ELEMENT.
STYLE-WARNING: Implicitly creating new generic function DOM:CREATE-ELEMENT.
STYLE-WARNING: Implicitly creating new generic function DOM:CREATE-ELEMENT-NS.
STYLE-WARNING:
Implicitly creating new generic function DOM:CREATE-DOCUMENT-FRAGMENT.
STYLE-WARNING: Implicitly creating new generic function DOM:CREATE-TEXT-NODE.
STYLE-WARNING: Implicitly creating new generic function DOM:CREATE-COMMENT.
STYLE-WARNING:
Implicitly creating new generic function DOM:CREATE-CDATA-SECTION.
STYLE-WARNING:
Implicitly creating new generic function DOM:CREATE-PROCESSING-INSTRUCTION.
STYLE-WARNING: Implicitly creating new generic function DOM:CREATE-ATTRIBUTE.
STYLE-WARNING: Implicitly creating new generic function DOM:CREATE-ATTRIBUTE-NS.
STYLE-WARNING:
Implicitly creating new generic function DOM:CREATE-ENTITY-REFERENCE.
STYLE-WARNING:
Implicitly creating new generic function
RUNE-DOM::GET-ELEMENTS-BY-TAG-NAME-INTERNAL.
STYLE-WARNING:
Implicitly creating new generic function
RUNE-DOM::GET-ELEMENTS-BY-TAG-NAME-INTERNAL-NS.
STYLE-WARNING:
Implicitly creating new generic function DOM:GET-ELEMENTS-BY-TAG-NAME.
STYLE-WARNING:
Implicitly creating new generic function DOM:GET-ELEMENTS-BY-TAG-NAME-NS.
STYLE-WARNING: Implicitly creating new generic function DOM:GET-ELEMENT-BY-ID.
STYLE-WARNING: Implicitly creating new generic function DOM:HAS-ATTRIBUTES.
STYLE-WARNING: Implicitly creating new generic function DOM:IS-SUPPORTED.
STYLE-WARNING: Implicitly creating new generic function DOM:PARENT-NODE.
STYLE-WARNING: Implicitly creating new generic function DOM:CHILD-NODES.
STYLE-WARNING: Implicitly creating new generic function DOM:FIRST-CHILD.
STYLE-WARNING: Implicitly creating new generic function DOM:LAST-CHILD.
STYLE-WARNING: Implicitly creating new generic function DOM:PREVIOUS-SIBLING.
STYLE-WARNING: Implicitly creating new generic function DOM:NEXT-SIBLING.
STYLE-WARNING: Implicitly creating new generic function DOM:INSERT-BEFORE.
STYLE-WARNING: Implicitly creating new generic function DOM:REPLACE-CHILD.
STYLE-WARNING: Implicitly creating new generic function DOM:REMOVE-CHILD.
STYLE-WARNING: Implicitly creating new generic function DOM:APPEND-CHILD.
STYLE-WARNING: Implicitly creating new generic function DOM:HAS-CHILD-NODES.
STYLE-WARNING: Implicitly creating new generic function DOM:NODE-NAME.
STYLE-WARNING: Implicitly creating new generic function DOM:NODE-TYPE.
STYLE-WARNING: Implicitly creating new generic function DOM:NODE-VALUE.
STYLE-WARNING:
Implicitly creating new generic function (COMMON-LISP:SETF DOM:NODE-VALUE).
STYLE-WARNING: Implicitly creating new generic function DOM:ITEM.
STYLE-WARNING: Implicitly creating new generic function DOM:LENGTH.
STYLE-WARNING: Implicitly creating new generic function DOM:GET-NAMED-ITEM.
STYLE-WARNING: Implicitly creating new generic function DOM:GET-NAMED-ITEM-NS.
STYLE-WARNING: Implicitly creating new generic function DOM:SET-NAMED-ITEM.
STYLE-WARNING: Implicitly creating new generic function DOM:SET-NAMED-ITEM-NS.
STYLE-WARNING: Implicitly creating new generic function DOM:REMOVE-NAMED-ITEM.
STYLE-WARNING:
Implicitly creating new generic function DOM:REMOVE-NAMED-ITEM-NS.
STYLE-WARNING:
Implicitly creating new generic function (COMMON-LISP:SETF DOM:DATA).
STYLE-WARNING: Implicitly creating new generic function DOM:SUBSTRING-DATA.
STYLE-WARNING: Implicitly creating new generic function DOM:APPEND-DATA.
STYLE-WARNING: Implicitly creating new generic function DOM:DELETE-DATA.
STYLE-WARNING: Implicitly creating new generic function DOM:REPLACE-DATA.
STYLE-WARNING: Implicitly creating new generic function DOM:INSERT-DATA.
STYLE-WARNING: Implicitly creating new generic function DOM:VALUE.
STYLE-WARNING:
Implicitly creating new generic function (COMMON-LISP:SETF DOM:VALUE).
STYLE-WARNING:
Implicitly creating new generic function RUNE-DOM::WRITE-ATTRIBUTE-CHILD.
STYLE-WARNING: Implicitly creating new generic function DOM:HAS-ATTRIBUTE.
STYLE-WARNING: Implicitly creating new generic function DOM:HAS-ATTRIBUTE-NS.
STYLE-WARNING: Implicitly creating new generic function DOM:GET-ATTRIBUTE-NODE.
STYLE-WARNING: Implicitly creating new generic function DOM:SET-ATTRIBUTE-NODE.
STYLE-WARNING:
Implicitly creating new generic function DOM:GET-ATTRIBUTE-NODE-NS.
STYLE-WARNING:
Implicitly creating new generic function DOM:SET-ATTRIBUTE-NODE-NS.
STYLE-WARNING: Implicitly creating new generic function DOM:GET-ATTRIBUTE.
STYLE-WARNING: Implicitly creating new generic function DOM:GET-ATTRIBUTE-NS.
STYLE-WARNING: Implicitly creating new generic function DOM:SET-ATTRIBUTE.
STYLE-WARNING: Implicitly creating new generic function DOM:SET-ATTRIBUTE-NS.
STYLE-WARNING: Implicitly creating new generic function DOM:REMOVE-ATTRIBUTE.
STYLE-WARNING: Implicitly creating new generic function DOM:REMOVE-ATTRIBUTE-NS.
STYLE-WARNING:
Implicitly creating new generic function DOM:REMOVE-ATTRIBUTE-NODE.
STYLE-WARNING: Implicitly creating new generic function DOM:NORMALIZE.
STYLE-WARNING: Implicitly creating new generic function DOM:SPLIT-TEXT.
STYLE-WARNING: Implicitly creating new generic function DOM:INTERNAL-SUBSET.
STYLE-WARNING: Implicitly creating new generic function DOM:NODE-P.
STYLE-WARNING: Implicitly creating new generic function DOM:DOCUMENT-P.
STYLE-WARNING: Implicitly creating new generic function DOM:DOCUMENT-FRAGMENT-P.
STYLE-WARNING: Implicitly creating new generic function DOM:CHARACTER-DATA-P.
STYLE-WARNING: Implicitly creating new generic function DOM:ATTRIBUTE-P.
STYLE-WARNING: Implicitly creating new generic function DOM:ELEMENT-P.
STYLE-WARNING: Implicitly creating new generic function DOM:TEXT-NODE-P.
STYLE-WARNING: Implicitly creating new generic function DOM:COMMENT-P.
STYLE-WARNING: Implicitly creating new generic function DOM:CDATA-SECTION-P.
STYLE-WARNING: Implicitly creating new generic function DOM:DOCUMENT-TYPE-P.
STYLE-WARNING: Implicitly creating new generic function DOM:NOTATION-P.
STYLE-WARNING: Implicitly creating new generic function DOM:ENTITY-P.
STYLE-WARNING: Implicitly creating new generic function DOM:ENTITY-REFERENCE-P.
STYLE-WARNING:
Implicitly creating new generic function DOM:PROCESSING-INSTRUCTION-P.
STYLE-WARNING: Implicitly creating new generic function DOM:NAMED-NODE-MAP-P.
STYLE-WARNING:
Implicitly creating new generic function RUNE-DOM::IMPORT-NODE-INTERNAL.
STYLE-WARNING: Implicitly creating new generic function DOM:IMPORT-NODE.
STYLE-WARNING: Implicitly creating new generic function DOM:CLONE-NODE.
STYLE-WARNING: Implicitly creating new generic function KLACKS:PEEK-NEXT.
STYLE-WARNING:
Implicitly creating new generic function XMLCONF::SERIALIZE-DOCUMENT.
STYLE-WARNING: Implicitly creating new generic function XMLCONF::RUN-TEST.
..STYLE-WARNING: Implicitly creating new generic function CL-XMPP:GET-ATTRIBUTE.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:GET-ELEMENT.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP::MAKE-ROSTER.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP::MAKE-IDENTITY.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP::MAKE-FEATURE.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP::MAKE-DISCO-INFO.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP::MAKE-ITEM.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP::MAKE-DISCO-ITEMS.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP::MAKE-ERROR.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:CONNECTEDP.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:DISCONNECT.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:FEATURE-P.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP:FEATURE-REQUIRED-P.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:MECHANISM-P.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:HANDLE.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP::PARSE-RESULT.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP::XML-ELEMENT-TO-EVENT.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP::DOM-TO-EVENT.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP:RECEIVE-STANZA-LOOP.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:RECEIVE-STANZA.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP:BEGIN-XML-STREAM.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:END-XML-STREAM.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:DISCOVER.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP:REGISTRATION-REQUIREMENTS.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:REGISTER.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP::CANCEL-REGISTRATION.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP::CHANGE-PASSWORD.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP:AUTH-REQUIREMENTS.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:AUTH.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP::%PLAIN-AUTH%.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP::%DIGEST-MD5-AUTH%.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:PRESENCE.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:MESSAGE.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:BIND.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:SESSION.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP:REQUEST-SUBSCRIPTION.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP:APPROVE-SUBSCRIPTION.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP:DENY/CANCEL-SUBSCRIPTION.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:UNSUBSCRIBE.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:GET-ROSTER.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:ROSTER-ADD.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP:ROSTER-REMOVE.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP:GET-PRIVACY-LISTS.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP:GET-PRIVACY-LIST.
STYLE-WARNING: Implicitly creating new generic function SASL::RESPONSE-VALUE.
STYLE-WARNING:
Implicitly creating new generic function
CL-XMPP::IF-SUCCESSFUL-RESTART-STREAM.
STYLE-WARNING: Implicitly creating new generic function CL-XMPP::%SASL-PLAIN%.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP::%SASL-DIGEST-MD5%.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP::HANDLE-CHALLENGE-RESPONSE.
STYLE-WARNING:
Implicitly creating new generic function
CL-XMPP::INITIATE-SASL-AUTHENTICATION.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP::SEND-CHALLENGE-RESPONSE.
STYLE-WARNING:
Implicitly creating new generic function CL-XMPP::SEND-SECOND-RESPONSE.

("cl-xmpp-sasl")
* (defvar *connection* (xmpp:connect :hostname "t1gov001"))
<?xml version='1.0' ?><stream:stream to='t1gov001' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams'
version='1.0'>
UNHANDLED: #<XML-ELEMENT STREAM:STREAM (6attr:0child:0data) {10051C8433}>
UNHANDLED: #<XML-ELEMENT STREAM:FEATURES (0attr:5child:0data) {1005AB96F3}>
*CONNECTION*
* (xmpp:auth *connection* "agent" "agent001" "t1gov001" :mechanism :sasl-plain)

SASL state: START

debugger invoked on a TYPE-ERROR in thread
#<THREAD "main thread" RUNNING {1002D7F3A3}>:
The value NIL is not of type VECTOR.

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
0: [ABORT] Exit debugger, returning to top level.

(SASL::STRING-TO-UTF8-LISP NIL)
0] BACKTRACE 9

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1002D7F3A3}>
0: (SASL::STRING-TO-UTF8-LISP NIL)
1: ((:METHOD SASL:CLIENT-STEP (SASL:PLAIN T)) #<SASL:PLAIN {1005F402E3}> #<unavailable argument>) [fast-method]
2: ((:METHOD CL-XMPP::INITIATE-SASL-AUTHENTICATION (CL-XMPP:CONNECTION T T)) #<CL-XMPP:CONNECTION to t1gov001:5222 (open
) {100369CC93}> "PLAIN" #<SASL:PLAIN {1005F402E3}>) [fast-method]
3: ((:METHOD CL-XMPP::%SASL-PLAIN% (CL-XMPP:CONNECTION T T T)) #<CL-XMPP:CONNECTION to t1gov001:5222 (open) {100369CC93}
> "agent" "agent001" #<unavailable argument>) [fast-method]
4: ((:METHOD CL-XMPP:AUTH (CL-XMPP:CONNECTION T T T)) #<CL-XMPP:CONNECTION to t1gov001:5222 (open) {100369CC93}> "agent"
"agent001" "t1gov001" :MECHANISM :SASL-PLAIN :BIND-ET-AL T :SEND-PRESENCE T) [fast-method]
5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CL-XMPP:AUTH *CONNECTION* "agent" "agent001" "t1gov001" :MECHANISM :SASL-PLAIN) #<NULL
-LEXENV>)
6: (EVAL (CL-XMPP:AUTH *CONNECTION* "agent" "agent001" "t1gov001" :MECHANISM :SASL-PLAIN))
7: (INTERACTIVE-EVAL (CL-XMPP:AUTH *CONNECTION* "agent" "agent001" "t1gov001" :MECHANISM :SASL-PLAIN) :EVAL NIL)
8: (SB-IMPL::REPL-FUN NIL)

0]

Post Reply