1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: modlisp -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
6 ;;;; Purpose: Base data and functions for modlisp package
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Dec 2002
10 ;;;; $Id: variables.lisp,v 1.8 2003/07/10 18:58:29 kevin Exp $
11 ;;;; *************************************************************************
13 (in-package #:modlisp)
15 (defconstant +default-modlisp-port+ 20123
16 "Default port for listen")
18 (defvar *modlisp-socket* nil
19 "the socket stream to modlisp")
21 (defvar *number-server-requests* 0
22 "number of requests for the server")
24 (defvar *number-worker-requests* 0
25 "number of requests for this worker process")
27 (defvar *close-modlisp-socket* t
28 "whether to close the modlisp socket at the end of this request")