anchor.diff:  
   #-freebsd
   (define-test poller/no-server/loopback
  +  (:tag :poller)
     (labels ((run-test (poller client)
   	     (format *standard-output* "~&; This test pauses for a maximum of 2 minutes, do not panic.~%")
   	     (let ((events (wait-for-events poller 120)))
  
positive.code: (in-package "BASIC-BINARY-IPC.TESTS")
  
  (define-test poller/ipv4
    (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))
  
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))
  