(defvar *processor*)
(let ((*processor* nil))
- (defun make-socket-server (name function port &key wait (format :text))
+ (defun make-socket-server (name function port listener
+ &key wait (format :text) function-args)
(setq *processor* function)
(values
(comm:start-up-server