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

[ctian at common-lisp.net]

Author: ctian
Date: Sat Oct  1 07:35:11 2011
New Revision: 674

Log:
[SBCL] SOCKET-CONNECT on TCP won't call bind() when keyword arguments LOCAL-HOST or LOCAL-PORT is not set. (reported by Robert Brown)

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

Modified: usocket/branches/0.5.x/CHANGES
==============================================================================
--- usocket/branches/0.5.x/CHANGES	Fri Aug 26 22:46:28 2011	(r673)
+++ usocket/branches/0.5.x/CHANGES	Sat Oct  1 07:35:11 2011	(r674)
@@ -2,6 +2,7 @@
 
 * Bugfix: [ECL] Fixed for ECL's MAKE-BUILD by removing some unecessary code (reported by Juan Jose Garcia-Ripoll, the ECL maintainer)
 * Bugfix: [ACL] Fixed for Allegro CL modern mode.
+* Bugfix: [SBCL] SOCKET-CONNECT on TCP won't call bind() when keyword arguments LOCAL-HOST or LOCAL-PORT is not set. (reported by Robert Brown)
 
 0.5.3:
 

Modified: usocket/branches/0.5.x/backend/sbcl.lisp
==============================================================================
--- usocket/branches/0.5.x/backend/sbcl.lisp	Fri Aug 26 22:46:28 2011	(r673)
+++ usocket/branches/0.5.x/backend/sbcl.lisp	Sat Oct  1 07:35:11 2011	(r674)
@@ -269,8 +269,6 @@
                                :protocol (case protocol
                                            (:stream :tcp)
                                            (:datagram :udp))))
-        (local-host (host-to-vector-quad (or local-host *wildcard-host*)))
-        (local-port (or local-port *auto-port*))
         usocket ok)
     (unwind-protect
          (progn
@@ -285,7 +283,10 @@
               (when (and nodelay-specified sockopt-tcp-nodelay-p)
                 (setf (sb-bsd-sockets::sockopt-tcp-nodelay socket) nodelay))
               (when (or local-host local-port)
-                (sb-bsd-sockets:socket-bind socket local-host local-port))
+                (sb-bsd-sockets:socket-bind socket
+					    (host-to-vector-quad
+					     (or local-host *wildcard-host*))
+                                            (or local-port *auto-port*)))
               (with-mapped-conditions (usocket)
 		#+(and sbcl (not win32))
 		(labels ((connect ()