Author: ehuelsmann Date: Wed Jul 30 16:56:49 2008 New Revision: 406

Modified: usocket/trunk/backend/lispworks.lisp Log: Fix LispWorks local-host/-port.

Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Wed Jul 30 16:56:49 2008 @@ -74,17 +74,18 @@ (raise-usock-err errno socket condition)))))

(defun socket-connect (host port &key (element-type 'base-char) - timeout deadline (nodelay t nodelay-specified)) + timeout deadline (nodelay t nodelay-specified) + local-host local-port) (declare (ignorable nodelay)) (when timeout (unimplemented 'timeout 'socket-connect)) - (when deadline (unsupported 'deadline 'socket-connect "LispWorks 5.1")) + (when deadline (unsupported 'deadline 'socket-connect :minimum "LispWorks 5.1"))

#+(and (not lispworks4) (not lispworks5.0)) (when nodelay-specified (unimplemented 'nodelay 'socket-connect)) #+lispworks4 (when (or local-host local-port) - (unsupported 'local-host 'socket-connect "LispWorks 5.0+ (verified)") - (unsupported 'local-port 'socket-connect "LispWorks 5.0+ (verified)")) + (unsupported 'local-host 'socket-connect :minimum "LispWorks 5.0+ (verified)") + (unsupported 'local-port 'socket-connect :minimum "LispWorks 5.0+ (verified)"))

(let ((hostname (host-to-hostname host)) (stream)) @@ -110,9 +111,9 @@ (backlog 5) (element-type 'base-char)) #+lispworks4.1 - (unsupported 'host 'socket-listen "LispWorks 4.0 or newer than 4.1") + (unsupported 'host 'socket-listen :minimum "LispWorks 4.0 or newer than 4.1") #+lispworks4.1 - (unsupported 'backlog 'socket-listen "LispWorks 4.0 or newer than 4.1") + (unsupported 'backlog 'socket-listen :minimum "LispWorks 4.0 or newer than 4.1")

(let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) (comm::*use_so_reuseaddr* reuseaddress)