Common Lisp与ZeroMQ的绑定

Question

我刚开始学习Lisp，尝试使用ZeroMQ库来创建一个分布式系统。 这是我的探索性代码

;;hwserver.lisp
(defun main()
  ;; prepare contexts
  (zmq:with-context (context)
    (zmq:with-socket (socket context zmq:rep)
      (zmq:bind socket "tcp://*5555")

      (loop
     (let ((request (make-instance 'zmq:msg)))

       ;; wait for next request from client
       (zmq:recv socket request)
       (print "received request: [~A]~%"
            (zmq:msg-data-as-string request))

       ;;do some work
       (sleep 1)

       ;;send reply back to client
       (let ((reply (make-instance 'zmq:msg :data "Hello World")))
         (zmq:send socket reply))))))
  (sb-ext:exit))

在 REPL 中，我运行以下命令

(ql:quickload "zeromq")
(load "hwserver.lisp")

然后我收到以下警告。

; 
; caught WARNING:
;   undefined variable: ZEROMQ:REP
; 
; compilation unit finished
;   Undefined variable:
;     ZEROMQ:REP
;   caught 1 WARNING condition

尽管 zmq:rep 是从 zeromq package 导出的。

如果我忽略警告并尝试运行 (main)，我会得到以下错误

The variable ZEROMQ:REP is unbound.
   [Condition of type UNBOUND-VARIABLE]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {10039B0003}>)

Backtrace:
  ;; backtrace omitted for being uninteresting here

我在这里做错了什么？

- saq7

Answer 1

此行代码：

This line

执行下面这个代码块时会出现错误：

(zmq:with-socket (socket context zmq:rep)

错误信息为：

The variable ZEROMQ:REP is unbound.

意味着该变量没有被赋值，无论该符号是否被导出都没有关系。

在我看来，这段代码期望一个关键词符号:rep作为套接字类型描述符，而不是zmq:rep。

这是另一个宏没有检查其所期望的类型的情况。

- Rainer Joswig