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