From 6f117c39a41acfbe330ff88e684b0d41ad7267a0 Mon Sep 17 00:00:00 2001 From: "Tarn W. Burton" Date: Mon, 7 Aug 2023 09:03:58 -0400 Subject: [PATCH] Fix typo --- src/lisp/yampi/message.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lisp/yampi/message.lisp b/src/lisp/yampi/message.lisp index e91724ba..c4ffe748 100644 --- a/src/lisp/yampi/message.lisp +++ b/src/lisp/yampi/message.lisp @@ -152,7 +152,7 @@ (apply #'receive channel nil (loop for position from 0 while (or (zerop position) (more-parts-p msg)) - collect (read-part control msg channel position)))))) + collect (read-part socket msg channel position)))))) (pzmq:with-poll-items items ((control :pollin) (broadcast :pollin)) (catch 'shutdown (loop for poll = (pzmq:poll items +zmq-poll-timeout+)