[cl-xmpp-cvs] CVS cl-xmpp

[ehuelsmann]

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)
                         , at body)))
 	     (write-sequence (vector-to-array ,xml) ,stream)
 	     (when *debug-stream*