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

Modified Files: cl-xmpp-tls.lisp Log Message: fix for convert-to-tls-stream for lichteblau though currently it (the function) is not working because something is blocking, somewhere

Date: Wed Nov 16 20:06:12 2005 Author: eenge

Index: cl-xmpp/cl-xmpp-tls.lisp diff -u cl-xmpp/cl-xmpp-tls.lisp:1.4 cl-xmpp/cl-xmpp-tls.lisp:1.5 --- cl-xmpp/cl-xmpp-tls.lisp:1.4 Mon Nov 14 16:14:06 2005 +++ cl-xmpp/cl-xmpp-tls.lisp Wed Nov 16 20:06:12 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp-tls.lisp,v 1.4 2005/11/14 15:14:06 eenge Exp $ +;;;; $Id: cl-xmpp-tls.lisp,v 1.5 2005/11/16 19:06:12 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp-tls.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -28,5 +28,7 @@ Turn off sending XML stream start with :begin-xml-stream nil." (setf (server-stream connection) (cl+ssl:make-ssl-client-stream (server-stream connection))) + (setf (server-xstream connection) + (cxml:make-xstream (server-stream connection))) (when begin-xml-stream (begin-xml-stream connection)))