Author: ctian Date: Mon Jun 28 12:09:41 2010 New Revision: 525 Log: CLISP: Clisp can't find gethostname on Linux, patch supplied by Stas Boukarev. Modified: usocket/trunk/backend/clisp.lisp Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Mon Jun 28 12:09:41 2010 @@ -13,11 +13,11 @@ :OUT :ALLOCA) (len ffi:int)) #+win32 (:library "WS2_32") + #-win32 (:library :default) (:language #-win32 :stdc #+win32 :stdc-stdcall) (:return-type ffi:int)) - (defun get-host-name () (multiple-value-bind (retcode name) (get-host-name-internal 256)