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)