[bknr-cvs] hans changed trunk/thirdparty/usocket/backend/openmcl.lisp - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

17 Jul 2008

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)

    