anchor.diff:  	(close-socket server)))))
   
   (define-test connect-to-ipv4-server/does-not-exist
  +  (:tag :ipv4-tcp-socket)
     (labels ((perform-test (client)
   	     (format *standard-output* "~&; This test pauses for a maximum of 2 minutes, do not panic.~%")
   	     (let ((results (poll-socket client '(determinedp connection-failed-p connection-succeeded-p) 120)))
  
positive.code: 	(close-socket client)))))
  
  (define-test connect-to-ipv4-server/does-not-exist/loopback
    (labels ((perform-test (client)
  	     (assert-true (typep client 'stream-socket))
  	     (format *standard-output* "~&; This test pauses for a maximum of 2 minutes, do not panic.~%")
  
negative.code: 	(close-socket server)))))
  
  (define-test ipv4-tcp-test/stream
    (:tag :ipv4-tcp-socket)
    (labels ((channel-test (client remote-client)
  	     (assert-true (poll-socket client 'ready-to-write-p 0))
  	     (assert-false (poll-socket remote-client 'data-available-p 0))
  