[usocket-cvs] r449 - usocket/branches/0.4.x/backend

[Chun Tian (binghe)]

Author: ctian
Date: Tue Oct 21 19:48:16 2008
New Revision: 449

Log:
Fix minimum local-bind support version of CMUCL


Modified:
   usocket/branches/0.4.x/backend/cmucl.lisp

Modified: usocket/branches/0.4.x/backend/cmucl.lisp
==============================================================================
--- usocket/branches/0.4.x/backend/cmucl.lisp	(original)
+++ usocket/branches/0.4.x/backend/cmucl.lisp	Tue Oct 21 19:48:16 2008
@@ -61,9 +61,9 @@
   (when deadline (unsupported 'deadline 'socket-connect))
   (when nodelay-specified (unsupported 'nodelay 'socket-connect))
   (when (and local-host-p (not local-bind-p))
-     (unsupported 'local-host 'socket-connect :minimum "Snapshot 2008-10 (19E)"))
+     (unsupported 'local-host 'socket-connect :minimum "Snapshot 2008-08 (19E)"))
   (when (and local-port-p (not local-bind-p))
-     (unsupported 'local-port 'socket-connect :minimum "Snapshot 2008-10 (19E)"))
+     (unsupported 'local-port 'socket-connect :minimum "Snapshot 2008-08 (19E)"))
 
   (let* ((socket))
     (setf socket