[usocket-cvs] r287 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Sep  4 18:54:28 2007
New Revision: 287

Modified:
   usocket/trunk/backend/clisp.lisp
Log:
Fix clisp problem pointed out by Matthew Kennedy and Yaroslav Kavenchuk.

Modified: usocket/trunk/backend/clisp.lisp
==============================================================================
--- usocket/trunk/backend/clisp.lisp	(original)
+++ usocket/trunk/backend/clisp.lisp	Tue Sep  4 18:54:28 2007
@@ -13,6 +13,8 @@
                            :OUT :ALLOCA)
                      (len ffi:int))
          #+win32 (:library "WS2_32")
+         (:language #-win32 :stdc
+                    #+win32 :stdc-stdcall)
          (:return-type ffi:int))
 
 
@@ -73,7 +75,7 @@
                            (element-type 'character))
   ;; clisp 2.39 sets SO_REUSEADDRESS to 1 by default; no need to
   ;; to explicitly turn it on; unfortunately, there's no way to turn it off...
-  (declare (ignore reuseaddress reuse-address))
+  (declare (ignore reuseaddress reuse-address reuse-address-supplied-p))
   (let ((sock (apply #'socket:socket-server
                      (append (list port
                                    :backlog backlog)