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