[cl-xmpp-cvs] CVS update: cl-xmpp/cl-xmpp.lisp

[Erik Enge]

Update of /project/cl-xmpp/cvsroot/cl-xmpp
In directory common-lisp.net:/tmp/cvs-serv1275

Modified Files:
	cl-xmpp.lisp 
Log Message:
removing commented-out function call no longer needed

Date: Fri Nov 18 23:53:02 2005
Author: eenge

Index: cl-xmpp/cl-xmpp.lisp
diff -u cl-xmpp/cl-xmpp.lisp:1.21 cl-xmpp/cl-xmpp.lisp:1.22
--- cl-xmpp/cl-xmpp.lisp:1.21	Fri Nov 18 23:29:27 2005
+++ cl-xmpp/cl-xmpp.lisp	Fri Nov 18 23:53:02 2005
@@ -1,4 +1,4 @@
-;;;; $Id: cl-xmpp.lisp,v 1.21 2005/11/18 22:29:27 eenge Exp $
+;;;; $Id: cl-xmpp.lisp,v 1.22 2005/11/18 22:53:02 eenge Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -359,7 +359,6 @@
 	(xml (gensym "xml")))
     `(let ((,stream (server-stream ,connection)))
        (prog1
-;	   (cxml:with-xml-output (make-octet+character-debug-stream-sink ,stream)
 	   (let ((,xml (cxml:with-xml-output (cxml:make-octet-vector-sink)
                          (cxml:with-element "iq"
                            (when ,id