[usocket-cvs] r479 - in usocket: branches/0.4.x/backend branches/experimental-udp/backend trunk/backend

[Chun Tian (binghe)]

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))