Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory clnet:/home/ehuelsmann/cl-xmpp-cvs

Modified Files: cl-xmpp.asd cl-xmpp.lisp Removed Files: cxml.lisp Log Message: Removed cxml.lisp; slow-xstream. Patch by lichtblau.

--- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.asd 2005/12/14 19:03:48 1.7 +++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.asd 2008/07/09 19:51:17 1.8 @@ -1,5 +1,5 @@ ;;;; -*- mode: lisp -*- -;;;; $Id: cl-xmpp.asd,v 1.7 2005/12/14 19:03:48 eenge Exp $ +;;;; $Id: cl-xmpp.asd,v 1.8 2008/07/09 19:51:17 ehuelsmann Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.asd,v $

;;;; See the LICENSE file for licensing information. @@ -22,10 +22,8 @@ :depends-on ("package")) (:file "utility" :depends-on ("variable")) - (:file "cxml" - :depends-on ("utility")) (:file "result" - :depends-on ("cxml")) + :depends-on ("utility")) (:file "cl-xmpp" :depends-on ("result"))))

--- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2007/03/05 17:38:35 1.31 +++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2008/07/09 19:51:17 1.32 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.31 2007/03/05 17:38:35 jstecklina Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.32 2008/07/09 19:51:17 ehuelsmann Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -320,7 +320,8 @@ (unless (server-source connection) (setf (server-source connection) (cxml:make-source - (cxml:make-xstream (make-slow-stream (server-stream connection)) + (cxml:make-xstream (server-stream connection) + :speed 1 :name (cxml::make-stream-name :entity-name "stanza" @@ -391,7 +392,8 @@ (stream (gensym "stream"))) `(let ((,stream (server-stream ,connection))) (prog1 - (let ((,xml (cxml:with-xml-output (cxml:make-octet-vector-sink) + (let ((,xml (cxml:with-xml-output + (cxml:make-octet-vector-sink :canonical 1) ,@body))) (write-sequence (vector-to-array ,xml) ,stream) (when *debug-stream*