[usocket-cvs] r118 - usocket/trunk/backend - usocket-cvs@common-lisp.net - mailman3.common-lisp.net

9 Sep 2006

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

    