Author: ctian Date: Wed Nov 26 16:18:06 2008 New Revision: 479

Log: [scl] update version requirements for SCL (1.3.9 already released)

Modified: usocket/branches/0.4.x/backend/scl.lisp usocket/branches/experimental-udp/backend/scl.lisp usocket/trunk/backend/scl.lisp

Modified: usocket/branches/0.4.x/backend/scl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/scl.lisp (original) +++ usocket/branches/0.4.x/backend/scl.lisp Wed Nov 26 16:18:06 2008 @@ -39,9 +39,9 @@ (when deadline (unsupported 'deadline 'socket-connect)) (when timeout (unsupported 'timeout 'socket-connect)) (when (and local-host-p (not patch-udp-p)) - (unsupported 'local-host 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-host 'socket-connect :minimum "1.3.9")) (when (and local-port-p (not patch-udp-p)) - (unsupported 'local-port 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-port 'socket-connect :minimum "1.3.9"))

(let* ((socket (let ((args (list (host-to-hbo host) port :kind :stream))) (when (and patch-udp-p (or local-host-p local-port-p))

Modified: usocket/branches/experimental-udp/backend/scl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/scl.lisp (original) +++ usocket/branches/experimental-udp/backend/scl.lisp Wed Nov 26 16:18:06 2008 @@ -39,9 +39,9 @@ (when deadline (unsupported 'deadline 'socket-connect)) (when timeout (unsupported 'timeout 'socket-connect)) (when (and local-host-p (not patch-udp-p)) - (unsupported 'local-host 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-host 'socket-connect :minimum "1.3.9")) (when (and local-port-p (not patch-udp-p)) - (unsupported 'local-port 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-port 'socket-connect :minimum "1.3.9"))

(let ((socket)) (ecase protocol @@ -62,7 +62,7 @@ (error 'unsupported :feature '(protocol :datagram) :context 'socket-connect - :minumum "1.3.8.2 or ask a udp-patch from SCL maintainer")) + :minumum "1.3.9")) (setf socket (if (and host port) (let ((args (list (host-to-hbo host) port :kind protocol)))

Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Wed Nov 26 16:18:06 2008 @@ -39,9 +39,9 @@ (when deadline (unsupported 'deadline 'socket-connect)) (when timeout (unsupported 'timeout 'socket-connect)) (when (and local-host-p (not patch-udp-p)) - (unsupported 'local-host 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-host 'socket-connect :minimum "1.3.9")) (when (and local-port-p (not patch-udp-p)) - (unsupported 'local-port 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-port 'socket-connect :minimum "1.3.9"))

(let* ((socket (let ((args (list (host-to-hbo host) port :kind :stream))) (when (and patch-udp-p (or local-host-p local-port-p))