[usocket-devel] CLISP problems

[leslie.polzer at gmx.net]

Hello,

CLISP 2.41 gives me the following:

;; Loading file /home/sky/.sbcl/site/usocket-0.3.5/backend/clisp.fas ...
** - Continuable Error
FFI::FIND-FOREIGN-FUNCTION: foreign function "gethostname" does not exist

Changing backend/clisp.lisp thus (in pseudo-diff format):

(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")
+        #+unix (:library "libc.so.6")
         (:language #-win32 :stdc
                    #+win32 :stdc-stdcall)
         (:return-type ffi:int))

helps on my system.

Is there some rationale behind the non-working code?
And is there a particular reason that usocket doesn't use CFFI?

  Thanks! :)

    Leslie
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/usocket-devel/attachments/20080421/076a5b45/attachment.sig>