[usocket-cvs] r402 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Jul 29 02:08:34 2008
New Revision: 402

Modified:
   usocket/trunk/backend/allegro.lisp
   usocket/trunk/backend/clisp.lisp
   usocket/trunk/backend/cmucl.lisp
   usocket/trunk/backend/lispworks.lisp
   usocket/trunk/backend/scl.lisp
Log:
Add DEADLINE everywhere.

Modified: usocket/trunk/backend/allegro.lisp
==============================================================================
--- usocket/trunk/backend/allegro.lisp	(original)
+++ usocket/trunk/backend/allegro.lisp	Tue Jul 29 02:08:34 2008
@@ -49,10 +49,12 @@
       :text
     :binary))
 
-(defun socket-connect (host port &key (element-type 'character) timeout
+(defun socket-connect (host port &key (element-type 'character)
+                       timeout deadline
                        (nodelay t)) ;; nodelay == t is the ACL default
   (declare (ignorable timeout))
   (unsupported 'timeout 'socket-connect)
+  (unsupported 'deadline 'socket-connect)
 
   (let ((socket))
     (setf socket

Modified: usocket/trunk/backend/clisp.lisp
==============================================================================
--- usocket/trunk/backend/clisp.lisp	(original)
+++ usocket/trunk/backend/clisp.lisp	Tue Jul 29 02:08:34 2008
@@ -55,10 +55,12 @@
                  (error usock-err :socket socket)
                (signal usock-err :socket socket)))))))
 
-(defun socket-connect (host port &key (element-type 'character) timeout nodelay)
+(defun socket-connect (host port &key (element-type 'character)
+                       timeout deadline nodelay)
   (declare (ignore nodelay timeout))
-  (unsupported 'nodelay 'socket-connect)
   (unsupported 'timeout 'socket-connect)
+  (unsupported 'deadline 'socket-connect)
+  (unsupported 'nodelay 'socket-connect)
 
   (let ((socket)
         (hostname (host-to-hostname host)))

Modified: usocket/trunk/backend/cmucl.lisp
==============================================================================
--- usocket/trunk/backend/cmucl.lisp	(original)
+++ usocket/trunk/backend/cmucl.lisp	Tue Jul 29 02:08:34 2008
@@ -50,10 +50,12 @@
                                                :socket socket
                                                :condition condition))))
 
-(defun socket-connect (host port &key (element-type 'character) timeout nodelay)
+(defun socket-connect (host port &key (element-type 'character)
+                       timeout deadline nodelay)
   (declare (ignore nodelay timeout))
-  (unsupported 'nodelay 'socket-connect)
   (unsupported 'timeout 'socket-connect)
+  (unsupported 'deadline 'socket-connect)
+  (unsupported 'nodelay 'socket-connect)
 
   (let* ((socket))
     (setf socket

Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	(original)
+++ usocket/trunk/backend/lispworks.lisp	Tue Jul 29 02:08:34 2008
@@ -73,9 +73,11 @@
                     (declare (ignore host port err-msg))
                     (raise-usock-err errno socket condition)))))
 
-(defun socket-connect (host port &key (element-type 'base-char) timeout nodelay)
+(defun socket-connect (host port &key (element-type 'base-char)
+                       timeout deadline nodelay)
   (declare (ignore nodelay))
   (unsupported 'timeout 'socket-connect)
+  (unsupported 'deadline 'socket-connect)
   (unimplemented 'nodelay 'socket-connect)
   (let ((hostname (host-to-hostname host))
         (stream))

Modified: usocket/trunk/backend/scl.lisp
==============================================================================
--- usocket/trunk/backend/scl.lisp	(original)
+++ usocket/trunk/backend/scl.lisp	Tue Jul 29 02:08:34 2008
@@ -28,9 +28,11 @@
                :socket socket
                :condition condition))))
 
-(defun socket-connect (host port &key (element-type 'character) timeout nodelay)
+(defun socket-connect (host port &key (element-type 'character)
+                       timeout deadline nodelay)
   (declare (ignore nodelay timeout))
   (unsupported 'nodelay 'socket-connect)
+  (unsupported 'deadline 'socket-connect)
   (unsupported 'timeout 'socket-connect)
 
   (let* ((socket (with-mapped-conditions ()