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 _______________________________________________ usocket-devel mailing list usocket-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel
