Example
(defun hello-world ()
(with-connection ()
(with-channel ()
(let ((x (exchange.default)))
(->
(queue.declare :name "cl-bunny.examples.hello-world" :auto-delete t)
(subscribe (lambda (message)
(log:info "Received ~a"
(message-body-string message)))))
(publish x "Hello world!" :routing-key "cl-bunny.examples.hello-world"))
(sleep 1))))
For more information, see the repository and cl-rabbit project website
License: MIT
Topics: Distributed messaging