Author: ehuelsmann Date: Sat Mar 3 18:41:09 2007 New Revision: 215 Modified: usocket/branches/0.3.x/backend/lispworks.lisp usocket/branches/0.3.x/usocket.lisp Log: Merge r212:214 from trunk (LispWorks server sockets fixes). Modified: usocket/branches/0.3.x/backend/lispworks.lisp ============================================================================== --- usocket/branches/0.3.x/backend/lispworks.lisp (original) +++ usocket/branches/0.3.x/backend/lispworks.lisp Sat Mar 3 18:41:09 2007 @@ -61,9 +61,10 @@ (backlog 5) (element-type 'base-char)) (let* ((comm::*use_so_reuseaddr* reuseaddress) + (hostname (host-to-hostname host)) (sock (with-mapped-conditions () #-lispworks4.1 (comm::create-tcp-socket-for-service - port :address host :backlog backlog) + port :address hostname :backlog backlog) #+lispworks4.1 (comm::create-tcp-socket-for-service port)))) (make-stream-server-socket sock :element-type element-type))) Modified: usocket/branches/0.3.x/usocket.lisp ============================================================================== --- usocket/branches/0.3.x/usocket.lisp (original) +++ usocket/branches/0.3.x/usocket.lisp Sat Mar 3 18:41:09 2007 @@ -83,6 +83,8 @@ The returned value is a subtype of `stream-server-usocket'. " + (unless socket + (error 'invalid-socket-error)) (make-instance 'stream-server-usocket :socket socket :element-type element-type))