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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Mar  3 18:36:21 2007
New Revision: 214

Modified:
   usocket/trunk/backend/lispworks.lisp
Log:
Fix LispWorks server sockets support.

Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	(original)
+++ usocket/trunk/backend/lispworks.lisp	Sat Mar  3 18:36:21 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)))