[usocket-cvs] r549 - usocket/trunk/backend

[Chun Tian (binghe)]

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