anchor.diff:        (raise-usock-err (sockint::wsa-get-last-error) socket)))
   
     (defun os-socket-handle (usocket)
  -    (sb-bsd-sockets:socket-file-descriptor (socket usocket)))
  +    (sockint::fd->handle (sb-bsd-sockets:socket-file-descriptor (socket usocket))))
   
     (defun bytes-available-for-read (socket)
       (sb-alien:with-alien ((int-ptr (* sb-alien:unsigned-long)))
  
positive.code:      waiter))
  ) ; progn
  
  #+ecl
  (progn
    (defun wait-for-input-internal (wl &key timeout)
      (with-mapped-conditions ()
  
negative.code: 
  #+ecl
  (progn
    #-:wsock
    (ffi:clines
     "#include <errno.h>"
  