Common Lisp Library for the Gearman distributed job system.
cl-gearman is available on quicklisp.
(ql:quickload 'cl-gearman)
;; client
(cl-gearman:with-client (client "localhost:4730")
(format t "~a~%" (cl-gearman:submit-job client "echo" :arg "foo")))
;; worker
(cl-gearman:with-worker (worker "localhost:4730")
(cl-gearman:add-ability worker "echo"
#'(lambda (arg job) arg))
(loop do (cl-gearman:work worker)))
Run gearman server,
docker run --rm -p 4730:4730 artefactual/gearmand:1.1.19.1-alpine
and then,
# start worker process
sbcl --script examples/worker.lisp
# start client process
sbcl --script examples/client.lisp
ln -s path/to/cl-gearman-repo ~/quicklisp/local-projects/cl-gearman
- sbcl
- clisp
- clozure cl
- allegro cl
- Takayuki Sato
Copyright (c) 2012 Takayuki Sato
Licensed under the LLGPL License.