anchor.diff:  
   ;; IPv4 TCP Stream (created using ACCEPT-CONNECTION)
   (defmethod poll-socket-request ((socket ipv4-tcp-stream/server) (socket-event (eql 'determinedp)))
  -  (read-request socket))
  +  (determinedp-request socket))
   
   (defmethod poll-socket-request ((socket ipv4-tcp-stream/server) (socket-event (eql 'connection-succeeded-p)))
  -  (read-request socket))
  +  (determinedp-request socket))
   
   (defmethod poll-socket-request ((socket ipv4-tcp-stream/server) (socket-event (eql 'connection-failed-p)))
     (read-request socket))
  
positive.code: 	 (server (make-instance 'ipv4-tcp-server
  				:descriptor descriptor
  				:client-descriptor client-descriptor
  				:local-address host-address
  				:local-port port)))
      (alexandria:unwind-protect-case ()
  	(basic-binary-ipc.overlapped-io:accept-ipv4 descriptor
  						    client-descriptor
  
negative.code:    (accept-request
      :initarg :accept-request
      :reader accept-request)
     (host-address
      :initarg :host-address
      :reader host-address)
     (port
      :initarg :port
      :reader port)
     (accept-buffer
      :initarg :accept-buffer
      :reader accept-buffer)
  