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