[usocket-cvs] r683 - in usocket/trunk: . backend

[ctian at common-lisp.net]

Author: ctian
Date: Fri Feb  3 20:31:26 2012
New Revision: 683

Log:
[LispWorks] SOCKET-CONNECT shouldn't have *auto-port* as its default value, this is not supported by LispWorks 6.1 any more. (Thanks to Raymond Wiker)

Modified:
   usocket/trunk/CHANGES
   usocket/trunk/backend/lispworks.lisp

Modified: usocket/trunk/CHANGES
==============================================================================
--- usocket/trunk/CHANGES	Sat Jan 28 12:49:31 2012	(r682)
+++ usocket/trunk/CHANGES	Fri Feb  3 20:31:26 2012	(r683)
@@ -3,8 +3,9 @@
 * New feature: SOCKET-OPTION for seting and geting various socket options.
 * Enhancement: SOCKET-CONNECT argument :nodelay now support :if-supported as value (patch from Anton Vodonosov).
 * Enhancement: Add *remote-host* *remote-port* to SOCKET-SERVER stream handler (suggested by Matthew Curry).
-* Bugfix: [LispWorks] Fixed UDP support for LispWorks 6.1 (patch from Camille Troillard).
+* Bugfix: [LispWorks] Fixed UDP support for LispWorks 6.1 (patch from Camille Troillard by Martin Simmons).
 * Bugfix: [LispWorks] Stop using hcl:add-special-free-action for reclaiming unused UDP socket fds to improve multi-threading stablity (suggested by Camille Troillard).
+* Bugfix: [LispWorks] Fixed SOCKET-CONNECT on Windows, now LOCAL-PORT never have *auto-port* (0) as default value.
 
 0.5.4:
 
@@ -62,3 +63,4 @@
 [TODO for 0.6.x]
 
 * New feature: SOCKET-SHUTDOWN for TCP and UDP sockets
+* Fix UDP in CCL 1.7 Windows |send| symbol is gone.

Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	Sat Jan 28 12:49:31 2012	(r682)
+++ usocket/trunk/backend/lispworks.lisp	Fri Feb  3 20:31:26 2012	(r683)
@@ -289,7 +289,7 @@
 
 (defun socket-connect (host port &key (protocol :stream) (element-type 'base-char)
                        timeout deadline (nodelay t nodelay-specified)
-                       local-host (local-port #+win32 *auto-port* #-win32 nil))
+                       local-host local-port)
 
   ;; What's the meaning of this keyword?
   (when deadline