anchor.diff:    (minor (:pointer :int))
     (patch (:pointer :int)))
   
  +;; This should be phased out for 3.x
   (defcfun (%device "zmq_device") :int
     (device device-type)
     (frontend socket)
  
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: (in-package :zmq)
  
  (define-foreign-library libzmq
  