anchor.diff:  
   #+ecl
   (progn
  -
     #-:wsock
     (ffi:clines
      "#include <errno.h>"
  
positive.code:                                          (socket sock)))
                 (setf (state sock) :READ))))))))
  
  
  )
  
  (defun map-socket-error (sock-err)
    (map-errno-error (sb-bsd-sockets::socket-error-errno sock-err)))
  
negative.code:       (raise-usock-err (sockint::wsa-get-last-error) socket)))
  
    (defun os-socket-handle (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)))
  