[usocket-cvs] r663 - in usocket/branches/0.5.x: . backend

[ctian at common-lisp.net]

Author: ctian
Date: Sat Jun 25 00:02:05 2011
New Revision: 663

Log:
[MCL] fixed SOCKET-LISTEN on vector addresses like #(0 0 0 0)

Modified:
   usocket/branches/0.5.x/CHANGES
   usocket/branches/0.5.x/backend/mcl.lisp

Modified: usocket/branches/0.5.x/CHANGES
==============================================================================
--- usocket/branches/0.5.x/CHANGES	Wed May 11 06:15:51 2011	(r662)
+++ usocket/branches/0.5.x/CHANGES	Sat Jun 25 00:02:05 2011	(r663)
@@ -1,3 +1,7 @@
+0.5.3:
+
+* [MCL] fixed SOCKET-LISTEN on vector addresses like #(0 0 0 0)
+
 0.5.2:
 
 * General: [SBCL] SOCKET-CONNECT's TIMEOUT argument was limited on non-Windows platforms.

Modified: usocket/branches/0.5.x/backend/mcl.lisp
==============================================================================
--- usocket/branches/0.5.x/backend/mcl.lisp	Wed May 11 06:15:51 2011	(r662)
+++ usocket/branches/0.5.x/backend/mcl.lisp	Sat Jun 25 00:02:05 2011	(r663)
@@ -98,7 +98,7 @@
 	 (socket (with-mapped-conditions ()
 		   (make-instance 'passive-socket 
 				  :local-port port
-				  :local-host host
+				  :local-host (host-to-hbo host)
 				  :reuse-address reuseaddress
 				  :backlog backlog))))
     (make-stream-server-socket socket :element-type element-type)))