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