[usocket-cvs] r312 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Feb 17 04:29:37 2008
New Revision: 312

Modified:
   usocket/trunk/backend/sbcl.lisp
Log:
Fix ECL error reporting: we need to map an errno-error, not a socket-error.

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Sun Feb 17 04:29:37 2008
@@ -323,5 +323,5 @@
 				  (socket s))
 				 result-fds)))
 			   sockets)
-		(map-socket-error err)))))))
+		(error (map-errno-error err))))))))
   )