Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp:/tmp/cvs-serv30108

Modified Files: cl-xmpp.lisp Log Message: adding patch from david, thanks!

--- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2005/12/31 20:15:06 1.24 +++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2006/01/23 16:41:11 1.25 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.24 2005/12/31 20:15:06 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.25 2006/01/23 16:41:11 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -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*