[usocket-cvs] r433 - usocket/branches/experimental-udp/backend

[Chun Tian (binghe)]

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)
                )))))))