anchor.diff:  		 (let ((remote-client (accept-connection tcp-server)))
   		   (unwind-protect
   			(transmit-data poller client remote-client)
  -		     (close-socket remote-client))))
  +		     (close-socket remote-client)
  +		     (unmonitor-socket poller remote-client))))
   
   	       (setf (monitored-events poller client) '(connection-failed-p connection-succeeded-p remote-disconnected-p))
   	       (let* ((events (wait-for-events poller 2))
  
positive.code: 
  #+freebsd
  (define-test poller/no-server/loopback
    (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
  
negative.code: 
  #-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)))
  