Hi, Stas Boukarev Sorry for late response. Your patch is reasonable. Thanks. I'll merge it into USOCKET and you'll see your changes in its next release soon. --binghe 在 2010-5-15，13:29， Stas Boukarev 写道：
I attached a patch which allows Clisp to find gethostname on Linux. Index: clisp.lisp =================================================================== --- clisp.lisp (revision 521) +++ clisp.lisp (working copy) @@ -7,15 +7,16 @@
;; utility routine for looking up the current host name -(FFI:DEF-CALL-OUT get-host-name-internal - (:name "gethostname") - (:arguments (name (FFI:C-PTR (FFI:C-ARRAY-MAX ffi:character 256)) - :OUT :ALLOCA) - (len ffi:int)) - #+win32 (:library "WS2_32") - (:language #-win32 :stdc - #+win32 :stdc-stdcall) - (:return-type ffi:int)) +(ffi:def-call-out get-host-name-internal + (:name "gethostname") + (:arguments (name (ffi:c-ptr (ffi:c-array-max ffi:character 256)) + :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 ()
-- With Best Regards, Stas. _______________________________________________ usocket-devel mailing list usocket-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel