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

[Erik Enge]

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)))