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

[Chun Tian (binghe)]

Author: ctian
Date: Wed Feb  2 01:51:56 2011
New Revision: 574

Log:
Clozure CL: wrap SOCKET-LISTEN's HOST argument in HOST-TO-HOSTNAME (Patched by James Ashley <james.ashley at gmail.com>)

Modified:
   usocket/trunk/backend/openmcl.lisp

Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Wed Feb  2 01:51:56 2011
@@ -118,6 +118,7 @@
                            (backlog 5)
                            (element-type 'character))
   (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress))
+	 (real-host (host-to-hostname host))
          (sock (with-mapped-conditions ()
                   (apply #'openmcl-socket:make-socket
                          (append (list :connect :passive
@@ -126,7 +127,7 @@
                                        :backlog backlog
                                        :format (to-format element-type))
                                  (when (ip/= host *wildcard-host*)
-                                   (list :local-host host)))))))
+                                   (list :local-host real-host)))))))
     (make-stream-server-socket sock :element-type element-type)))
 
 (defmethod socket-accept ((usocket stream-server-usocket) &key element-type)