[usocket-cvs] r482 - usocket/branches/experimental-udp/backend

[Chun Tian (binghe)]

Author: ctian
Date: Thu Dec 18 07:22:11 2008
New Revision: 482

Log:
[udp] small fix for SBCL, thanks to John Fremlin from MSI

Modified:
   usocket/branches/experimental-udp/backend/sbcl.lisp

Modified: usocket/branches/experimental-udp/backend/sbcl.lisp
==============================================================================
--- usocket/branches/experimental-udp/backend/sbcl.lisp	(original)
+++ usocket/branches/experimental-udp/backend/sbcl.lisp	Thu Dec 18 07:22:11 2008
@@ -218,7 +218,9 @@
 
   (let ((socket (make-instance 'sb-bsd-sockets:inet-socket
                                :type protocol
-                               :protocol protocol)))
+                               :protocol (case protocol
+					   (:stream :tcp)
+					   (:datagram :udp)))))
     (handler-case
         (ecase protocol
           (:stream