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