(let ((listener (make-instance 'listener :port port
:base-name "modlisp"
:function 'modlisp-command-issuer
:function-args (cons processor processor-args)
:format :text
:wait nil
(let ((listener (make-instance 'listener :port port
:base-name "modlisp"
:function 'modlisp-command-issuer
:function-args (cons processor processor-args)
:format :text
:wait nil