bye.lisp

   1 (asdf:oos 'asdf:load-op :julia)
   2
   3 (zmq::with-context (ctx 1)
   4   (zmq:with-socket (s ctx zmq:pub)
   5     (zmq:connect s julia::*bus*)
   6     (zmq:send s
   7               (make-instance 'zmq:msg :data (format nil "ALL ~a 0 BYE" julia::*me*)))
   8     (sleep 1)))
   9
  10 (sb-ext:quit)
  11
  12 ;