From c330f270f3badc739974b76274a5a48ffe6c8eb6 Mon Sep 17 00:00:00 2001
From: mgoffioul <mgoffioul>
Date: Mon, 24 Apr 2006 13:46:00 +0000
Subject: [PATCH] Make it compilable under MSVC (...again)

---
 contrib/sockets/sockets.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/contrib/sockets/sockets.lisp b/contrib/sockets/sockets.lisp
index 39dd5265a..e79dc1e37 100644
--- a/contrib/sockets/sockets.lisp
+++ b/contrib/sockets/sockets.lisp
@@ -60,6 +60,10 @@
  "typedef int ssize_t;"
  "typedef int socklen_t;"
  "#define MSG_WAITALL 0"
+ "#define MSG_EOR 0"
+ "#define MSG_DONTWAIT 0"
+ "#define MSG_NOSIGNAL 0"
+ "#define MSG_CONFIRM 0"
  "#include <errno.h>"
  "#include <fcntl.h>"
  "#include <stdio.h>")
@@ -673,10 +677,11 @@ static void fill_inet_sockaddr(struct sockaddr_in *sockaddr, int port,
                     ( #d ? MSG_CONFIRM : 0 );
         cl_type type = type_of(#1);
         struct sockaddr_in sockaddr;
+	ssize_t len;
 
 	fill_inet_sockaddr(&sockaddr, #3, #4, #5, #6, #7);
 
-        ssize_t len = sendto(#0,( type == t_vector ? #1->vector.self.ch :
+        len = sendto(#0,( type == t_vector ? #1->vector.self.ch :
                                 ( type == t_string ? #1->string.self : NULL )),
                              #2, flags,(struct sockaddr*)&sockaddr, 
                              sizeof(struct sockaddr_in));