Author: ctian Date: Mon Jul 19 09:55:24 2010 New Revision: 549 Log: MCL: mark UDP (datagram) as unsupported. Modified: usocket/trunk/backend/mcl.lisp Modified: usocket/trunk/backend/mcl.lisp ============================================================================== --- usocket/trunk/backend/mcl.lisp (original) +++ usocket/trunk/backend/mcl.lisp Mon Jul 19 09:55:24 2010 @@ -72,7 +72,9 @@ (raise-error))))) (defun socket-connect (host port &key (element-type 'character) timeout deadline nodelay - local-host local-port) + local-host local-port (protocol :stream)) + (when (eq protocol :datagram) + (unsupported '(protocol :datagram) 'socket-connect)) (with-mapped-conditions () (let* ((socket (make-instance 'active-socket