- (processor 'demo-modlisp-command-processor)
- (processor-args nil)
- (catch-errors t))
- (let ((listener (make-instance 'listener :port port
- :base-name "modlisp"
- :function 'modlisp-command-issuer
- :function-args (cons processor processor-args)
- :format :text
- :wait nil
- :catch-errors catch-errors)))
- (init/listener listener :start)))
-
-
-(defun modlisp-stop (listener)
- (init/listener listener :stop))
+ (processor 'demo-modlisp-command-processor)
+ (processor-args nil)
+ (catch-errors t)
+ timeout
+ number-fixed-workers
+ remote-host-checker)
+ (let* ((server (make-instance 'ml-server
+ :processor processor
+ :processor-args processor-args
+ :port port))
+ (listener (make-instance 'listener :port port
+ :base-name "modlisp"
+ :function 'modlisp-command-issuer
+ :function-args (list server)
+ :format :text
+ :wait nil
+ :catch-errors catch-errors
+ :timeout timeout
+ :number-fixed-workers number-fixed-workers
+ :remote-host-checker remote-host-checker)))
+ (setf (listener server) listener)
+ (init/listener listener :start)
+ (setf *ml-server* server)
+ server))
+
+
+(defun modlisp-stop (server)
+ (init/listener (listener server) :stop)
+ (setf (listener server) nil)
+ server)