anchor.diff:    (nitems :int)
     (timeout :long))
   
  -(defcfun (%recv "zmq_recv") :int
  +(defcfun (%recv "zmq_recvmsg") :int
     (socket socket)
     (msg (:pointer (:struct msg)))
     (flags recv-options))
   
  -(defcfun (%send "zmq_send") :int
  +(defcfun (%send "zmq_sendmsg") :int
     (socket socket)
     (msg (:pointer (:struct msg)))
     (flags send-options))
  
positive.code:   (revents :short))
  
  (defcstruct msg
    (content :pointer)
    (flags :uchar)
    (vsm-size :uchar)
    (vsm-data :uchar :count #.max-vsm-size))
  
  (defcfun (%bind "zmq_bind") :int
    (socket socket)
  
negative.code:   (minor (:pointer :int))
    (patch (:pointer :int)))
  
  ;; This should be phased out for 3.x
  (defcfun (%device "zmq_device") :int
    (device device-type)
    (frontend socket)
  