Author: ctian Date: Mon Oct 20 07:40:43 2008 New Revision: 433
Log: [udp] minor fixes for CMUCL
Modified: usocket/branches/experimental-udp/backend/cmucl.lisp
Modified: usocket/branches/experimental-udp/backend/cmucl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/cmucl.lisp (original) +++ usocket/branches/experimental-udp/backend/cmucl.lisp Mon Oct 20 07:40:43 2008 @@ -89,7 +89,7 @@ (if (or local-host local-port) (with-mapped-conditions (socket) (ext:create-inet-listener (or local-port 0) :datagram :host local-host)) - (with-mapped-conditoins (socket) + (with-mapped-conditions (socket) (ext:create-inet-socket :datagram))))) (if socket (let ((usocket (make-datagram-socket socket))) @@ -248,5 +248,6 @@ (when (unix:fd-isset (socket x) rfds) (setf (state x) :READ))) (progn - ;;###FIXME generate an error, except for EINTR + ;;###FIXME generate an error, except for EINTR + (cmucl-map-socket-error err) )))))))