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

[Chun Tian (binghe)]

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)