+(defvar *ml-server* nil "Current ml-server instance")
+
+(defclass ml-server ()
+ ((listener :initarg :listener :initform nil :accessor listener)
+ (port :initarg :port :initform nil :accessor port)
+ (processor :initarg :processor :initform nil :accessor processor)
+ (processor-args :initarg :processor-args :initform nil
+ :accessor processor-args)))
+
+
+