[usocket-cvs] r215 - in usocket/branches/0.3.x: . backend

[ehuelsmann at common-lisp.net]

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