anchor.diff:  
   #+ecl
   (progn
  -
     #-:wsock
     (ffi:clines
      "#include <errno.h>"
  
positive.code:      waiter))
  ) ; progn
  
  #+ecl
  (progn
    (defun wait-for-input-internal (wl &key timeout)
      (with-mapped-conditions ()
  
negative.code:                                          (socket sock)))
                 (setf (state sock) :READ))))))))
  
  ) ; progn
  
  (defun map-socket-error (sock-err)
    (map-errno-error (sb-bsd-sockets::socket-error-errno sock-err)))
  