# Pastebin z40MU7qW

address -> "tcp://127.0.0.1:9734"
type-of address -> (SIMPLE-ARRAY CHARACTER (20))
(pzmq:getsockopt worker :identity) -> ""
About to wait for message-recv
=============== message-recv ==============
    recv (pzmq:getsockopt socket :type) -> :ROUTER
    recv (pzmq:getsockopt socket :identity) -> ""
  (length parts) -> 3
     parts -> (#(0 96 183 172 217) "<IDS|MSG>" "a-request")
     delim-index -> 1
     parts -> (#(0 96 183 172 217) "<IDS|MSG>" "a-request")
    identities: (#(0 96 183 172 217))
    msg: ("a-request")
Sending response-msg: ("response" "a-request")
  in message-send (length wire-parts) -> 4
    send  wire-parts-> (#(0 96 183 172 217) "<IDS|MSG>" "response" "a-request")
    send (pzmq:getsockopt socket :type) -> :ROUTER
    send (pzmq:getsockopt socket :identity) -> ""
message-send (array (unsigned-byte 8)): (0 96 183 172 217)
message-send string: "<IDS|MSG>"
message-send string: "response"
message-send string: "a-request"
T
COMMON-LISP-USER>