anchor.diff:  
   #+freebsd
   (define-test poller/no-server/loopback
  +  (:tag :poller)
     (warn "POLLER/NO-SERVER-LOOPBACK on FreeBSD is different to other
     hosts. For some reasonEINVAL is signalled during MONITOR-SOCKET when
     it shouldn't be. I need to investigate this further, but for now, I
  
positive.code: 
  #-freebsd
  (define-test poller/no-server/loopback
    (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)))
  
negative.code: (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))
  