anchor.diff:    (check-type timeout (or (real 0) (member :indefinite :immediate)))
     (let* ((timeout (cond
   		    ((eql timeout :indefinite)
  -		     basic-binary-ipc.overlapped-io::+infinite+)
  +		     basic-binary-ipc.overlapped-io:+infinite+)
   		    ((eql timeout :immediate)
   		     0)
   		    (t
  
positive.code:    :descriptor-stream-ready nil))
  
  (defmethod initialize-instance :after ((object descriptor-stream-mixin) &key)
    (when (and (slot-boundp object 'descriptor-stream-ready)
  	     (descriptor-stream-ready-p object))
      (setf (descriptor-stream-ready object) nil)
  
negative.code: 			  (basic-binary-ipc.overlapped-io:set-event rv)
  			  rv)))
  
  (defmethod initialize-instance :after ((object local-stream) &key)
    (setf (basic-binary-ipc.overlapped-io:descriptor (determinedp-request object)) (descriptor object)))
  
  (defmethod close-socket ((socket local-stream))
    (basic-binary-ipc.overlapped-io:close-handle (descriptor socket))
    (basic-binary-ipc.overlapped-io:free-request (determinedp-request socket))
  