[usocket-devel] Small fix for SBCL UDP (SBCL 1.0.18)

[Chun Tian (binghe)]

Hi, John

Thank you very much. Your patch haw been merged into experimental-udp  
branch of usocket as r482:

http://common-lisp.net/websvn/listing.php?repname=usocket&path=%2Fusocket%2F&rev=482&sc=0

Regards,

binghe

On 2008-12-18, at 14:32, John Fremlin wrote:

> usocket-svn-experimental-udp$ svn diff
> Index: backend/sbcl.lisp
> ===================================================================
> --- backend/sbcl.lisp	(revision 481)
> +++ backend/sbcl.lisp	(working copy)
> @@ -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

--
Chun Tian (binghe)
NetEase.com, Inc.
P. R. China