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