Author: ctian Date: Wed Jan 5 18:16:16 2011 New Revision: 573
Log: CLISP: work around on linksets without FFI
Modified: usocket/trunk/backend/clisp.lisp
Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Wed Jan 5 18:16:16 2011 @@ -5,8 +5,8 @@
(in-package :usocket)
- ;; utility routine for looking up the current host name +#+ffi (FFI:DEF-CALL-OUT get-host-name-internal (:name "gethostname") (:arguments (name (FFI:C-PTR (FFI:C-ARRAY-MAX ffi:character 256)) @@ -19,11 +19,13 @@ (:return-type ffi:int))
(defun get-host-name () + #+ffi (multiple-value-bind (retcode name) (get-host-name-internal 256) (when (= retcode 0) - name))) - + name)) + #-ffi + "localhost")
#+win32 (defun remap-maybe-for-win32 (z) @@ -256,5 +258,4 @@ (warn "This image doesn't contain the RAWSOCK package. To enable UDP socket support, please be sure to use the -Kfull parameter at startup, or to enable RAWSOCK support during compilation.") - )