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 ()