anchor.diff:  (in-package "BASIC-BINARY-IPC.TESTS")
   
   (define-test poller/ipv4
  +  (:tag :poller)
     (let ((port (random-server-port)))
       (labels ((transmit-data (poller client remote-client)
   	       (monitor-socket poller client '(connection-succeeded-p data-available-p ready-to-write-p))
  
positive.code: 		 (let ((remote-client (accept-connection tcp-server)))
  		   (unwind-protect
  			(transmit-data poller client remote-client)
  		     (close-socket remote-client))))
  
  	       (setf (monitored-events poller client) '(connection-failed-p connection-succeeded-p remote-disconnected-p))
  	       (let* ((events (wait-for-events poller 2))
  
negative.code: 	  (close-socket tcp-server))))))
  
  (define-test poller/local
    (:tag :poller)
    (let ((path (local-socket-pathname)))
      (labels ((transmit-data (poller client remote-client)
  	       (monitor-socket poller client '(connection-succeeded-p data-available-p ready-to-write-p))
  