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 _______________________________________________ usocket-devel mailing list usocket-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel
