anchor.diff:    (revents :short))
   
   (defcstruct msg
  -  (content :pointer)
  -  (flags :uchar)
  -  (vsm-size :uchar)
  -  (vsm-data :uchar :count #.max-vsm-size))
  +  (_ :uchar :count 32))
   
   (defcfun (%bind "zmq_bind") :int
     (socket socket)
  
positive.code:   (minor (:pointer :int))
    (patch (:pointer :int)))
  
  (defcfun (%device "zmq_device") :int
    (device device-type)
    (frontend socket)
  
negative.code:   (nitems :int)
    (timeout :long))
  
  (defcfun (%recv "zmq_recvmsg") :int
    (socket socket)
    (msg (:pointer (:struct msg)))
    (flags recv-options))
  
  (defcfun (%send "zmq_sendmsg") :int
    (socket socket)
    (msg (:pointer (:struct msg)))
    (flags send-options))
  