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