;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: variables.lisp,v 1.8 2003/07/10 18:58:29 kevin Exp $
+;;;; $Id$
;;;; *************************************************************************
(in-package #:modlisp)
"whether to close the modlisp socket at the end of this request")
+(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)))
+
+