1 ;; Copyright (c) 2009, 2010 Vitaly Mayatskikh <v.mayatskih@gmail.com>
3 ;; This file is part of CL-ZMQ.
5 ;; Vitaly Mayatskikh grants you the rights to distribute
6 ;; and use this software as governed by the terms
7 ;; of the Lisp Lesser GNU Public License
8 ;; (http://opensource.franz.com/preamble.html),
11 (asdf:oos
'asdf
:load-op
:zeromq
)
13 (defpackage :zeromq-test
16 (in-package :zeromq-test
)
21 (zmq::with-context
(ctx 1)
22 (zmq:with-socket
(s ctx zmq
:pub
)
23 (zmq:setsockopt s zmq
:rate
*rate
*)
24 (zmq:connect s
*connect-address
*)
25 (let ((msg (make-instance 'zmq
:msg
)))
26 (dotimes (i *message-count
*)
27 (zmq:msg-init-size msg
*message-size
*)