[cl-xmpp-devel] request-subscription problem

[Adam Thorsen]

I am trying to call request-subscription, then restart the
receive-stanza loop, like so:

(defun subscribe(user-uid expert-jid)
  (let ((connection (get-connection user-uid)))
  (xmpp:request-subscription connection expert-jid)
  (sb-thread:make-thread (lambda () (xmpp:receive-stanza-loop connection))))
  )

However, I get the error below.  I looked at cl-xmpp:make-error -
there is indeed no way to call it with a (nil) argument.  I tried to
define a method that would but I was told that the generic function
declaration wouldn't allow it.  Any ideas what's going wrong?

There is no applicable method for the generic function
  #<STANDARD-GENERIC-FUNCTION CL-XMPP::MAKE-ERROR (1)>
when called with arguments
  (NIL).
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [TERMINATE-THREAD] Terminate this thread (#<THREAD {94F4359}>)

Backtrace:
  0: ((SB-PCL::FAST-METHOD NO-APPLICABLE-METHOD (T)) #<unavailable
argument> #<unavailable argument> #<STANDARD-GENERIC-FUNCTION
CL-XMPP::MAKE-ERROR (1)> (NIL))
  1: ((SB-PCL::FAST-METHOD NO-APPLICABLE-METHOD (T)) #<unavailable
argument> #<unavailable argument> #<STANDARD-GENERIC-FUNCTION
CL-XMPP::MAKE-ERROR (1)> (NIL))
  2: (SB-KERNEL:%MAP-TO-LIST-ARITY-1 #<CLOSURE (LAMBDA (CL-XMPP::X))
{950891D}> (#<CL-XMPP:XML-ELEMENT IQ (4attr:1child:0data) {95084F9}>))
  3: (CL-XMPP::DEFAULT-STANZA-CALLBACK #<DOM-IMPL::DOCUMENT {9504E21}>
#<CL-XMPP:CONNECTION to guruza.com:5222 (open) {946D881}> :DOM-REPR
NIL)
  4: ((SB-PCL::FAST-METHOD CL-XMPP:RECEIVE-STANZA
(CL-XMPP:CONNECTION)) #<unavailable argument> #<unavailable argument>
#<CL-XMPP:CONNECTION to guruza.com:5222 (open) {946D881}>
(:STANZA-CALLBACK CL-XMPP::DEFAULT-STANZA-CALLBACK :DOM-REPR NIL))
  5: ((SB-PCL::FAST-METHOD CL-XMPP:RECEIVE-STANZA-LOOP
(CL-XMPP:CONNECTION)) #<unavailable argument> #<unavailable argument>
#<CL-XMPP:CONNECTION to guruza.com:5222 (open) {946D881}> NIL)
  6: ((SB-PCL::FAST-METHOD CL-XMPP:RECEIVE-STANZA-LOOP
(CL-XMPP:CONNECTION)) #<unavailable argument> #<unavailable argument>
#<CL-XMPP:CONNECTION to guruza.com:5222 (open) {946D881}> NIL)
  7: ((LAMBDA NIL))
  8: ("foreign function: call_into_lisp")
  9: ("foreign function: funcall0")
 10: ("foreign function: new_thread_trampoline")
 11: ("foreign function: #xB7FD5ABA")