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