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

[Chun Tian (binghe)]

Author: ctian
Date: Tue Mar 29 09:28:30 2011
New Revision: 600

Log:
[CCL] remove the useless OPENMCL-SOCKET:SOCKET-CONNECT call in SOCKET-CONNECT; set :input-timeout to TIMEOUT keyword argument.

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:28:30 2011
@@ -97,7 +97,6 @@
 					  :deadline deadline
 					  :nodelay nodelay
 					  :connect-timeout timeout)))
-	 (openmcl-socket:socket-connect mcl-sock)
 	 (make-stream-socket :stream mcl-sock :socket mcl-sock)))
       (:datagram
        (let* ((mcl-sock
@@ -105,6 +104,7 @@
                                            :type :datagram
                                            :local-host (when local-host (host-to-hostname local-host))
                                            :local-port local-port
+					   :input-timeout timeout
                                            :format :binary))
               (usocket (make-datagram-socket mcl-sock)))
 	 (when (and host port)