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