Author: ehuelsmann Date: Sat Sep 9 18:10:43 2006 New Revision: 118 Modified: usocket/trunk/backend/clisp.lisp usocket/trunk/backend/lispworks.lisp Log: Apply patch by afuchs, fixing issue #6. Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Sat Sep 9 18:10:43 2006 @@ -17,8 +17,8 @@ (defparameter +clisp-error-map+ #+win32 - (append (remap-for-win32 +unix-errno-condition-map+) - (remap-for-win32 +unix-errno-error-map+)) + (append (remap-maybe-for-win32 +unix-errno-condition-map+) + (remap-maybe-for-win32 +unix-errno-error-map+)) #-win32 (append +unix-errno-condition-map+ +unix-errno-error-map+)) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Sat Sep 9 18:10:43 2006 @@ -19,8 +19,8 @@ (defparameter +lispworks-error-map+ #+win32 - (append (remap-for-win32 +unix-errno-condition-map+) - (remap-for-win32 +unix-errno-error-map+)) + (append (remap-maybe-for-win32 +unix-errno-condition-map+) + (remap-maybe-for-win32 +unix-errno-error-map+)) #-win32 (append +unix-errno-condition-map+ +unix-errno-error-map+))