[usocket-cvs] r605 - usocket/branches/0.5.x/backend - usocket-cvs@common-lisp.net - mailman3.common-lisp.net

30 Mar 2011

Author: ctian
Date: Wed Mar 30 01:41:42 2011
New Revision: 605
Log:
[LispWorks] fixed HANDLE-CONDITION on win32, should be (wsa-get-last-error) instead of (lw:errno-value)
Modified:
   usocket/branches/0.5.x/backend/lispworks.lisp
Modified: usocket/branches/0.5.x/backend/lispworks.lisp
==============================================================================

--- usocket/branches/0.5.x/backend/lispworks.lisp	(original)
+++ usocket/branches/0.5.x/backend/lispworks.lisp	Wed Mar 30 01:41:42 2011
@@ -74,14 +74,15 @@
 (defun handle-condition (condition &optional (socket nil))
   "Dispatch correct usocket condition."
   (typecase condition
-    (condition (let ((errno (lispworks:errno-value)))
+    (condition (let ((errno #-win32 (lw:errno-value)
+                            #+win32 (wsa-get-last-error)))
                  (raise-usock-err errno socket condition)))))
(defconstant *socket_sock_dgram* 2
   "Connectionless, unreliable datagrams of fixed maximum length.")
(defconstant *sockopt_so_rcvtimeo*
-  #+(not linux) #x1006
+  #-linux #x1006
   #+linux 20
   "Socket receive timeout")

    