[usocket-cvs] r296 - usocket/branches/0.3.x/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Sep 17 16:14:43 2007
New Revision: 296

Modified:
   usocket/branches/0.3.x/backend/clisp.lisp
Log:
Backport r287: clisp language specifier and ignored variable.

Modified: usocket/branches/0.3.x/backend/clisp.lisp
==============================================================================
--- usocket/branches/0.3.x/backend/clisp.lisp	(original)
+++ usocket/branches/0.3.x/backend/clisp.lisp	Mon Sep 17 16:14:43 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 (with-mapped-conditions ()
                   (apply #'socket:socket-server
                          (append (list port