anchor.diff:     :determinedp-request (let ((rv (make-instance 'basic-binary-ipc.overlapped-io:request)))
   			  (basic-binary-ipc.overlapped-io:set-event rv)
   			  rv)))
  +
  +(defmethod initialize-instance :after ((object ipv4-tcp-stream/server) &key)
  +  (setf (basic-binary-ipc.overlapped-io:descriptor (determinedp-request object)) (descriptor object)))
   
   (defmethod close-socket ((socket ipv4-tcp-stream/server))
     (call-next-method)
  
positive.code:   (check-type timeout (or (real 0) (member :indefinite :immediate)))
    (let* ((timeout (cond
  		    ((eql timeout :indefinite)
  		     basic-binary-ipc.overlapped-io::+infinite+)
  		    ((eql timeout :immediate)
  		     0)
  		    (t
  
negative.code:    :descriptor-stream-ready nil))
  
  (defmethod initialize-instance :after ((object descriptor-stream-mixin) &key)
    (with-accessors ((read-request read-request)
  		   (write-request write-request)
  		   (descriptor descriptor))
        object
      (setf (basic-binary-ipc.overlapped-io:descriptor read-request) descriptor
  	  (basic-binary-ipc.overlapped-io:descriptor write-request) descriptor))
  
    (when (and (slot-boundp object 'descriptor-stream-ready)
  	     (descriptor-stream-ready-p object))
      (setf (descriptor-stream-ready object) nil)
  