[cl-xmpp-devel] Trouble with escapes

[David Lichteblau]

Quoting Erik Enge (erik.enge at gmail.com):
> On 1/22/06, Adam Thorsen <adam.thorsen at gmail.com> wrote:
> > Any ideas?
> 
> I haven't tried to reproduce this, but off the top of my head it does
> look like cxml is having a hiccup, not cl-xmpp.  To make sure that's
> the case, try to reproduce this without even loading cl-xmpp into your
> Lisp and boil it down to the smallest example which still produces
> that error.  Then send that to cxml-devel and see what they say.

Since I don't have a working lisp+cxml+cl-xmpp installation around to
test this right now, here's a blind guess at a patch that might address
the problem.

Does this help?


d.
-------------- next part --------------
Index: cl-xmpp.lisp
===================================================================
RCS file: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v
retrieving revision 1.24
diff -u -u -u -r1.24 cl-xmpp.lisp
--- cl-xmpp.lisp	31 Dec 2005 20:15:06 -0000	1.24
+++ cl-xmpp.lisp	23 Jan 2006 10:27:01 -0000
@@ -316,7 +316,12 @@
 (defun read-stanza (connection)
   (unless (server-xstream connection)
     (setf (server-xstream connection)
-          (cxml:make-xstream (make-slow-stream (server-stream connection)))))
+          (cxml:make-xstream (make-slow-stream (server-stream connection))
+			     :name
+			     (cxml::make-stream-name
+			      :entity-name "stanza"
+			      :entity-kind :main
+			      :uri nil))))
   (force-output (server-stream connection))
   (catch 'stanza
     (let ((cxml::*namespace-bindings*