Apply patch by afuchs, fixing issue usocket#6.

vibs29 · Sep 9, 2006 · 479ba9c · 479ba9c
1 parent 79009e2
commit 479ba9c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/backend/clisp.lisp b/backend/clisp.lisp
@@ -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+))

diff --git a/backend/lispworks.lisp b/backend/lispworks.lisp
@@ -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+))