tests/client.lisp

   1 (require :cl-cluster)
   2
   3 (in-package :cl-cluster)
   4
   5 (defvar my-remote (make-instance 'node-zmq :endpoint "tcp://127.0.0.1:5555"
   6                                  :connect t))
   7
   8 (defvar feed (make-instance 'node-zmq
   9                             :endpoint "epgm://lo;226.0.0.1:5555"
  10                             :connect t :type zmq:pub))
  11
  12 (node-send feed "(defvar remote-list '(1 2 3 4 5 6 7 8))")
  13
  14 (format t "~a~%"
  15         (exec-remote my-remote
  16                      (loop for i in remote-list
  17                         when (oddp i) collect i)))
  18
  19 (sb-ext:quit)