[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 
Log Message:
Move cl-xmpp from trivial-sockets to usocket.

--- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.asd	2008/07/09 19:51:17	1.8
+++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.asd	2008/07/09 19:58:50	1.9
@@ -1,5 +1,5 @@
 ;;;; -*- mode: lisp -*-
-;;;; $Id: cl-xmpp.asd,v 1.8 2008/07/09 19:51:17 ehuelsmann Exp $
+;;;; $Id: cl-xmpp.asd,v 1.9 2008/07/09 19:58:50 ehuelsmann Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.asd,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -16,7 +16,7 @@
     :author "Erik Enge"
     :licence "MIT"
     :description "Common Lisp XMPP client implementation"
-    :depends-on (#+sbcl :sb-bsd-sockets :trivial-sockets :cxml :ironclad)
+    :depends-on (:usocket :cxml :ironclad)
     :components ((:file "package")
                  (:file "variable"
                         :depends-on ("package"))
--- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp	2008/07/09 19:51:17	1.32
+++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp	2008/07/09 19:58:50	1.33
@@ -1,4 +1,4 @@
-;;;; $Id: cl-xmpp.lisp,v 1.32 2008/07/09 19:51:17 ehuelsmann Exp $
+;;;; $Id: cl-xmpp.lisp,v 1.33 2008/07/09 19:58:50 ehuelsmann Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -84,8 +84,9 @@
 but I'm trying not to optimize too early plus if you are going to
 do in-band registration (JEP0077) then you don't have a JID until
 after you've connected."
-  (let* ((stream (trivial-sockets:open-stream
-                  hostname port :element-type '(unsigned-byte 8)))
+  (let* ((stream (usocket:socket-stream
+		   (usocket:socket-connect
+                          hostname port :element-type '(unsigned-byte 8))))
          (connection (make-instance class
                                     :jid-domain-part jid-domain-part
                                     :server-stream stream