Revision: 3495 Author: hans URL: http://bknr.net/trac/changeset/3495
Add :NODELAY argument to SOCKET-CONNECT to disable TCP start-up delays. CCL only.
U trunk/thirdparty/usocket/backend/openmcl.lisp
Modified: trunk/thirdparty/usocket/backend/openmcl.lisp =================================================================== --- trunk/thirdparty/usocket/backend/openmcl.lisp 2008-07-17 16:00:11 UTC (rev 3494) +++ trunk/thirdparty/usocket/backend/openmcl.lisp 2008-07-17 16:06:40 UTC (rev 3495) @@ -72,13 +72,14 @@ :text :binary))
-(defun socket-connect (host port &key (element-type 'character) timeout deadline) +(defun socket-connect (host port &key (element-type 'character) timeout deadline nodelay) (with-mapped-conditions () (let ((mcl-sock (openmcl-socket:make-socket :remote-host (host-to-hostname host) :remote-port port :format (to-format element-type) :deadline deadline + :nodelay nodelay :connect-timeout (and timeout (* timeout internal-time-units-per-second))))) (openmcl-socket:socket-connect mcl-sock)