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

18 Jul 2008

Revision: 3497
Author: hans
URL: http://bknr.net/trac/changeset/3497
add ignored nodelay argument to all backends
U   trunk/thirdparty/usocket/backend/allegro.lisp
U   trunk/thirdparty/usocket/backend/armedbear.lisp
U   trunk/thirdparty/usocket/backend/clisp.lisp
U   trunk/thirdparty/usocket/backend/cmucl.lisp
U   trunk/thirdparty/usocket/backend/lispworks.lisp
U   trunk/thirdparty/usocket/backend/sbcl.lisp
U   trunk/thirdparty/usocket/backend/scl.lisp
Modified: trunk/thirdparty/usocket/backend/allegro.lisp
===================================================================

--- trunk/thirdparty/usocket/backend/allegro.lisp	2008-07-18 04:47:37 UTC (rev 3496)
+++ trunk/thirdparty/usocket/backend/allegro.lisp	2008-07-18 05:03:18 UTC (rev 3497)
@@ -49,7 +49,8 @@
       :text
     :binary))
-(defun socket-connect (host port &key (element-type 'character) timeout)
+(defun socket-connect (host port &key (element-type 'character) timeout nodelay)
+  (declare (ignore nodelay))
   (when timeout
     (warn "SOCKET-CONNECT timeout not supported in Allegro CL"))
   (let ((socket))
Modified: trunk/thirdparty/usocket/backend/armedbear.lisp
===================================================================
--- trunk/thirdparty/usocket/backend/armedbear.lisp	2008-07-18 04:47:37 UTC (rev 3496)
+++ trunk/thirdparty/usocket/backend/armedbear.lisp	2008-07-18 05:03:18 UTC (rev 3497)
@@ -185,7 +185,8 @@
   (typecase condition
     (error (error 'unknown-error :socket socket :real-error condition))))
-(defun socket-connect (host port &key (element-type 'character) timeout)
+(defun socket-connect (host port &key (element-type 'character) timeout nodelay)
+  (declare (ignore nodelay))
   (when timeout
     (warn "SOCKET-CONNECT timeout not supported in ABCL"))
   (let ((usock))
Modified: trunk/thirdparty/usocket/backend/clisp.lisp
===================================================================
--- trunk/thirdparty/usocket/backend/clisp.lisp	2008-07-18 04:47:37 UTC (rev 3496)
+++ trunk/thirdparty/usocket/backend/clisp.lisp	2008-07-18 05:03:18 UTC (rev 3497)
@@ -55,7 +55,8 @@
                  (error usock-err :socket socket)
                (signal usock-err :socket socket)))))))
-(defun socket-connect (host port &key (element-type 'character) timeout)
+(defun socket-connect (host port &key (element-type 'character) timeout nodelay)
+  (declare (ignore nodelay))
   (when timeout
     (warn "SOCKET-CONNECT timeout not supported in CLISP"))
   (let ((socket)
Modified: trunk/thirdparty/usocket/backend/cmucl.lisp
===================================================================
--- trunk/thirdparty/usocket/backend/cmucl.lisp	2008-07-18 04:47:37 UTC (rev 3496)
+++ trunk/thirdparty/usocket/backend/cmucl.lisp	2008-07-18 05:03:18 UTC (rev 3497)
@@ -50,7 +50,8 @@
                                                :socket socket
                                                :condition condition))))
-(defun socket-connect (host port &key (element-type 'character) timeout)
+(defun socket-connect (host port &key (element-type 'character) timeout nodelay)
+  (declare (ignore nodelay))
   (when timeout
     (warn "SOCKET-CONNECT timeout not supported in CMUCL"))
   (let* ((socket))
Modified: trunk/thirdparty/usocket/backend/lispworks.lisp
===================================================================
--- trunk/thirdparty/usocket/backend/lispworks.lisp	2008-07-18 04:47:37 UTC (rev 3496)
+++ trunk/thirdparty/usocket/backend/lispworks.lisp	2008-07-18 05:03:18 UTC (rev 3497)
@@ -73,7 +73,8 @@
                     (declare (ignore host port err-msg))
                     (raise-usock-err errno socket condition)))))
-(defun socket-connect (host port &key (element-type 'base-char) timeout)
+(defun socket-connect (host port &key (element-type 'base-char) timeout nodelay)
+  (declare (ignore nodelay))
   (when timeout
     (warn "SOCKET-CONNECT timeout not supported in Lispworks"))
   (let ((hostname (host-to-hostname host))
Modified: trunk/thirdparty/usocket/backend/sbcl.lisp
===================================================================
--- trunk/thirdparty/usocket/backend/sbcl.lisp	2008-07-18 04:47:37 UTC (rev 3496)
+++ trunk/thirdparty/usocket/backend/sbcl.lisp	2008-07-18 05:03:18 UTC (rev 3497)
@@ -186,7 +186,8 @@
                      (signal usock-cond :socket socket))))))
-(defun socket-connect (host port &key (element-type 'character) timeout deadline)
+(defun socket-connect (host port &key (element-type 'character) timeout deadline nodelay)
+  (declare (ignore nodelay))
   (declare (ignore deadline))
   (when timeout
     (warn "SOCKET-CONNECT timeout not supported in SBCL"))
Modified: trunk/thirdparty/usocket/backend/scl.lisp
===================================================================
--- trunk/thirdparty/usocket/backend/scl.lisp	2008-07-18 04:47:37 UTC (rev 3496)
+++ trunk/thirdparty/usocket/backend/scl.lisp	2008-07-18 05:03:18 UTC (rev 3497)
@@ -28,7 +28,8 @@
                :socket socket
                :condition condition))))
-(defun socket-connect (host port &key (element-type 'character) timeout)
+(defun socket-connect (host port &key (element-type 'character) timeout nodelay)
+  (declare (ignore nodelay))
   (when timeout
     (warn "SOCKET-CONNECT timeout not supported in SCL"))
   (let* ((socket (with-mapped-conditions ()

    