+ :documentation "list of worker threads")
+ (name :initform "" :accessor name :initarg :name)
+ (wait :initform nil :accessor wait :initarg :wait)
+ (catch-errors :initform nil :accessor catch-errors :initarg :catch-errors)
+ (format :initform :text :accessor listener-format :initarg :format)))