From ehuelsmann at common-lisp.net  Sat Sep  9 22:10:44 2006
From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net)
Date: Sat,  9 Sep 2006 18:10:44 -0400 (EDT)
Subject: [usocket-cvs] r118 - usocket/trunk/backend
Message-ID: <20060909221044.E77D852001@common-lisp.net>

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