[usocket-cvs] r598 - usocket/branches/0.5.x/backend

[Chun Tian (binghe)]

Author: ctian
Date: Tue Mar 29 09:03:02 2011
New Revision: 598

Log:
[CCL] Fixed SOCKET-CONNECT returning NIL when doing UDP connections (involved in r583, after 0.5.0)

Modified:
   usocket/branches/0.5.x/backend/openmcl.lisp

Modified: usocket/branches/0.5.x/backend/openmcl.lisp
==============================================================================
--- usocket/branches/0.5.x/backend/openmcl.lisp	(original)
+++ usocket/branches/0.5.x/backend/openmcl.lisp	Tue Mar 29 09:03:02 2011
@@ -108,10 +108,11 @@
                                            :format :binary))
               (usocket (make-datagram-socket mcl-sock)))
 	 (when (and host port)
-           (ccl::inet-connect (ccl::socket-device mcl-sock)
-                              (ccl::host-as-inet-host host)
-                              (ccl::port-as-inet-port port "udp"))
-           (setf (connected-p usocket) t)))))))
+	   (ccl::inet-connect (ccl::socket-device mcl-sock)
+			      (ccl::host-as-inet-host host)
+			      (ccl::port-as-inet-port port "udp")))
+	 (setf (connected-p usocket) t)
+	 usocket)))))
 
 (defun socket-listen (host port
                            &key reuseaddress