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: 
  
  (defclass ipv4-tcp-stream/server (ipv4-tcp-stream)
    ())
  
  (defmethod determinedp ((socket ipv4-tcp-stream/server))
    t)
  
negative.code: 		      (accept-buffer accept-buffer)
  		      (accept-buffer-size accept-buffer-size))
  	 server
         (let ((accepted-client-descriptor client-descriptor))
  	 (prog1 (make-instance 'ipv4-tcp-stream/server
  			       :descriptor accepted-client-descriptor
  			       :local-address (basic-binary-ipc.overlapped-io:local-address accept-request)
  