anchor.diff:  
     (defun wait-for-input-internal (wait-list &key timeout)
       (when (waiting-required (wait-list-waiters wait-list))
  -      (let ((rv (wait-for-single-object (wait-list-%wait wait-list) (truncate (* 1000000 timeout)))))
  +      (let ((rv (wsa-wait-for-multiple-events 1 (wait-list-%wait wait-list)
  +                                              nil (truncate (* 1000 timeout)) nil)))
           (ecase rv
  -          ((#.+wait-object-0+ #.+wait-timeout+)
  +          ((#.+wsa-wait-event-0+ #.+wsa-wait-timeout+)
              (update-ready-and-state-slots (wait-list-waiters wait-list)))
  -          (#.+wait-failed+
  +          ((#.+wsa-wait-failed+)
              (raise-usock-err
               (sb-win32::get-last-error-message (sb-win32::get-last-error))
               wait-list))))))
  
positive.code:                                       network-events)
                  (maybe-wsa-error rv socket)))))))
  
    (defun %setup-wait-list (wait-list)
      (setf (wait-list-%wait wait-list) (wsa-event-create))
      (sb-ext:finalize wait-list
                       #'(lambda () (unless (null (wait-list-%wait wait-list))
                                      (wsa-event-close (wait-list-%wait wait-list))))))
  
    (defun %add-waiter (wait-list waiter)
      (let ((events (etypecase waiter
                      (stream-server-usocket (logior fd-connect fd-accept fd-close))
                      (stream-usocket (logior fd-connect fd-read fd-oob fd-close))
                      (datagram-usocket (logior fd-read)))))
        (maybe-wsa-error
         (wsa-event-select (os-socket-handle waiter) (wait-list-%wait wait-list) events)
         waiter)))
  
    (defun %remove-waiter (wait-list waiter)
      (maybe-wsa-error
       (wsa-event-select (os-socket-handle waiter) (wait-list-%wait wait-list) 0)
       waiter))
  ) ; progn
  
  
negative.code: 
  #+(and sbcl win32)
  (eval-when (:compile-toplevel)
    (defconstant +wsa-wait-failed+ #xffffffff)
    (defconstant +wsa-wait-event-0+ 0)
    (defconstant +wsa-wait-timeout+ 258))
  
  #+(and sbcl win32)
  (progn
  