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=%2Fusocke...

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