+ (processor 'demo-apache-command-processor)
+ (processor-args nil))
+ (let ((listener (make-instance 'listener :port port
+ :name (next-server-name)
+ :function 'apache-command-issuer
+ :function-args (cons processor processor-args)
+ :format :text
+ :wait nil)))