anchor.diff:      (zmq:with-sockets ((pub-socket context :pub)
                          (sub-socket context :sub))
         (zmq:setsockopt sub-socket :subscribe "")
  -      (zmq:bind sub-socket "inproc://test")
  -      (zmq:connect pub-socket "inproc://test")
  +      (zmq:bind pub-socket "inproc://test")
  +      (zmq:connect sub-socket "inproc://test")
         (zmq:with-msg-init-data (msg "")
           (zmq:send pub-socket msg))
         (zmq:with-msg-init (msg)
  
positive.code:     (zmq:with-sockets ((pub-socket context :pub)
                         (sub-socket context :sub))
        (zmq:setsockopt sub-socket :subscribe "")
        (zmq:bind sub-socket "inproc://test")
        (zmq:connect pub-socket "inproc://test")
        (zmq:with-msg-init-data (msg "test")
          (zmq:send pub-socket msg))
        (zmq:with-poll-items (items nb-items)
  
negative.code:     (zmq:with-sockets ((pub-socket context :pub)
                         (sub-socket context :sub))
        (zmq:setsockopt sub-socket :subscribe "")
        (zmq:bind pub-socket "inproc://test")
        (zmq:connect sub-socket "inproc://test")
        (zmq:with-msg-init-data (msg "test")
          (zmq:send pub-socket msg))
        (zmq:with-msg-init (msg)
  