From ctian at common-lisp.net Sat Oct 1 14:35:12 2011 From: ctian at common-lisp.net (ctian at common-lisp.net) Date: Sat, 01 Oct 2011 07:35:12 -0700 Subject: [usocket-cvs] r674 - in usocket/branches/0.5.x: . backend Message-ID: 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 () From ctian at common-lisp.net Sat Oct 1 14:49:27 2011 From: ctian at common-lisp.net (ctian at common-lisp.net) Date: Sat, 01 Oct 2011 07:49:27 -0700 Subject: [usocket-cvs] r675 - in usocket/trunk: . backend Message-ID: Author: ctian Date: Sat Oct 1 07:49:26 2011 New Revision: 675 Log: Merge all changes from branch 0.5.x (r672, 674) before tagging 0.5.4 Modified: usocket/trunk/CHANGES usocket/trunk/backend/sbcl.lisp usocket/trunk/package.lisp usocket/trunk/usocket-test.asd usocket/trunk/usocket.asd Modified: usocket/trunk/CHANGES ============================================================================== --- usocket/trunk/CHANGES Sat Oct 1 07:35:11 2011 (r674) +++ usocket/trunk/CHANGES Sat Oct 1 07:49:26 2011 (r675) @@ -1,3 +1,9 @@ +0.5.4: + +* 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: * Bugfix: [MCL] Fixed SOCKET-LISTEN on vector addresses like #(0 0 0 0) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp Sat Oct 1 07:35:11 2011 (r674) +++ usocket/trunk/backend/sbcl.lisp Sat Oct 1 07:49:26 2011 (r675) @@ -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 () Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp Sat Oct 1 07:35:11 2011 (r674) +++ usocket/trunk/package.lisp Sat Oct 1 07:49:26 2011 (r675) @@ -3,8 +3,6 @@ ;;;; See the LICENSE file for licensing information. -(in-package :usocket-system) - (defpackage :usocket (:use :common-lisp #+abcl :java) (:export #:*wildcard-host* @@ -87,20 +85,3 @@ #:insufficient-implementation ; conditions regarding usocket support level #:unsupported #:unimplemented)) - -(in-package :usocket) - -;;; Logical Pathname Translations, learn from CL-HTTP source code - -(eval-when (:load-toplevel :execute) - (let* ((defaults #+asdf (asdf:component-pathname (asdf:find-system :usocket)) - #-asdf *load-truename*) - (home (make-pathname :name :wild :type :wild - :directory (append (pathname-directory defaults) - '(:wild-inferiors)) - :host (pathname-host defaults) - :defaults defaults - :version :newest))) - (setf (logical-pathname-translations "usocket") - `(("**;*.*.NEWEST" ,home) - ("**;*.*" ,home))))) Modified: usocket/trunk/usocket-test.asd ============================================================================== --- usocket/trunk/usocket-test.asd Sat Oct 1 07:35:11 2011 (r674) +++ usocket/trunk/usocket-test.asd Sat Oct 1 07:49:26 2011 (r675) @@ -4,14 +4,6 @@ ;;;; See the LICENSE file for licensing information. -(in-package :cl-user) - -(unless (find-package ':usocket-system) - (make-package ':usocket-system - :use '(:cl :asdf))) - -(in-package :usocket-system) - (defsystem usocket-test :name "usocket test" :author "Erik Enge" Modified: usocket/trunk/usocket.asd ============================================================================== --- usocket/trunk/usocket.asd Sat Oct 1 07:35:11 2011 (r674) +++ usocket/trunk/usocket.asd Sat Oct 1 07:49:26 2011 (r675) @@ -4,13 +4,6 @@ ;;;; See the LICENSE file for licensing information. -(in-package :cl-user) - -(defpackage usocket-system - (:use :cl :asdf)) - -(in-package :usocket-system) - (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" From ctian at common-lisp.net Sat Oct 1 14:50:21 2011 From: ctian at common-lisp.net (ctian at common-lisp.net) Date: Sat, 01 Oct 2011 07:50:21 -0700 Subject: [usocket-cvs] r676 - usocket/tags/0.5.4 Message-ID: Author: ctian Date: Sat Oct 1 07:50:21 2011 New Revision: 676 Log: Created tag 0.5.4. Added: usocket/tags/0.5.4/ - copied from r675, usocket/trunk/ From ctian at common-lisp.net Sat Oct 1 14:52:14 2011 From: ctian at common-lisp.net (ctian at common-lisp.net) Date: Sat, 01 Oct 2011 07:52:14 -0700 Subject: [usocket-cvs] r677 - public_html/releases Message-ID: Author: ctian Date: Sat Oct 1 07:52:12 2011 New Revision: 677 Log: [release] usocket-0.5.4 Added: public_html/releases/usocket-0.5.4.tar.gz (contents, props changed) public_html/releases/usocket-0.5.4.tar.gz.asc Modified: public_html/releases/usocket-latest.tar.gz public_html/releases/usocket-latest.tar.gz.asc Added: public_html/releases/usocket-0.5.4.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.5.4.tar.gz.asc ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ public_html/releases/usocket-0.5.4.tar.gz.asc Sat Oct 1 07:52:12 2011 (r677) @@ -0,0 +1,8 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG/MacGPG2 v2.0.17 (Darwin) +Comment: GPGTools - http://gpgtools.org + +iEYEABECAAYFAk6HKN8ACgkQny6v4+l8uLBtmgCeK9of6AlsUjioV7sbOBkvV9IZ +N7gAn2Rlx07aPqTycW9bXRRW6JhVvoLp +=lLI0 +-----END PGP SIGNATURE----- Modified: public_html/releases/usocket-latest.tar.gz ============================================================================== --- public_html/releases/usocket-latest.tar.gz Sat Oct 1 07:50:21 2011 (r676) +++ public_html/releases/usocket-latest.tar.gz Sat Oct 1 07:52:12 2011 (r677) @@ -1 +1 @@ -link usocket-0.5.3.tar.gz \ No newline at end of file +link usocket-0.5.4.tar.gz \ No newline at end of file Modified: public_html/releases/usocket-latest.tar.gz.asc ============================================================================== --- public_html/releases/usocket-latest.tar.gz.asc Sat Oct 1 07:50:21 2011 (r676) +++ public_html/releases/usocket-latest.tar.gz.asc Sat Oct 1 07:52:12 2011 (r677) @@ -1 +1 @@ -link usocket-0.5.3.tar.gz.asc \ No newline at end of file +link usocket-0.5.4.tar.gz.asc \ No newline at end of file