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