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

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