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