anchor.diff:     "#include <winsock2.h>")
   
     (ffi:clines
  -   "#include <ecl/ecl-inl.h>"
  -   "#include <string.h>")
  +   "#include <ecl/ecl-inl.h>")
   
     #+:prefixed-api
     (ffi:clines
  
positive.code:   (defun get-host-name ()
      (ffi:c-inline
       () () :object
       "{ char buf[256];
          int r = gethostname(&buf,256);
  
          if (r == 0)
             @(return) = make_simple_base_string(strndup(&buf,255));
          else
             @(return) = Cnil;
        }" :one-liner nil :side-effects nil))
  
    (defun read-select (read-fds to-secs &optional (to-musecs 0))
  
negative.code:                       (sb-alien:cast buf (* sb-alien:char))
                        256)))
           (when (= result 0)
             (sb-alien:cast buf sb-alien:c-string))))))
  
  
  #+ecl
  