anchor.diff: -
   (in-package :zmq)
   
   (define-foreign-library libzmq
  
positive.code:   (nitems :int)
    (timeout :long))
  
  (defcfun (%recv "zmq_recv") :int
    (socket socket)
    (msg (:pointer (:struct msg)))
    (flags recv-options))
  
  (defcfun (%send "zmq_send") :int
    (socket socket)
    (msg (:pointer (:struct msg)))
    (flags send-options))
  
negative.code:   (revents :short))
  
  (defcstruct msg
    (_ :uchar :count 32))
  
  (defcfun (%bind "zmq_bind") :int
    (socket socket)
  