anchor.diff:  
   (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))
  
positive.code:          (:return-type ffi:int))
  
  (defun get-host-name ()
    (multiple-value-bind (retcode name)
        (get-host-name-internal 256)
      (when (= retcode 0)
        name)))
  
  
  #+win32
  (defun remap-maybe-for-win32 (z)
  
negative.code:   (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.")
    )
  