perf/local-lat.lisp

   1 (require :cl-zmq)
   2
   3 (defpackage :zmq-test
   4   (:use :cl :cffi))
   5
   6 (in-package :zmq-test)
   7
   8 (load "lat-parms")
   9
  10 (defparameter ctx (zmq:init 1 1))
  11 (defparameter s (zmq:socket ctx zmq:rep))
  12
  13 (zmq:bind s *address*)
  14
  15 (let ((msg (zmq:make-message)))
  16   (dotimes (i *roundtrip-count*)
  17     (zmq:recv s msg 0)
  18     (zmq:send s msg 0)))
  19
  20 (zmq:sleep 1)
  21 (zmq:close s)
  22 (zmq:term ctx)
  23 (sb-ext:quit)
  24 ;