projects
/
cl-modlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5269: *** empty log message ***
[cl-modlisp.git]
/
variables.lisp
diff --git
a/variables.lisp
b/variables.lisp
index 2edf38bf0093d234c7f096c88f45efdde03135c9..adee9093a2a42536221b55ab85f4ee44109a5725 100644
(file)
--- a/
variables.lisp
+++ b/
variables.lisp
@@
-7,33
+7,27
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: variables.lisp,v 1.
1 2003/07/04 22:41:06
kevin Exp $
+;;;; $Id: variables.lisp,v 1.
8 2003/07/10 18:58:29
kevin Exp $
;;;; *************************************************************************
(in-package #:modlisp)
;;;; *************************************************************************
(in-package #:modlisp)
-(def
var *listener-count* 0
- "
used to name listeners
")
+(def
constant +default-modlisp-port+ 20123
+ "
Default port for listen
")
-(defvar *
worker-count* 0
- "
used to name workers
")
+(defvar *
modlisp-socket* nil
+ "
the socket stream to modlisp
")
-(defvar *
listener-socket*
- "
Socket for the listen
er")
+(defvar *
number-server-requests* 0
+ "
number of requests for the serv
er")
-(defvar *
listener-proc* nil
- "
Process for the listener
")
+(defvar *
number-worker-requests* 0
+ "
number of requests for this worker process
")
-(def
constant +default-apache-port+ 20123
- "
Default port for listen
")
+(def
var *close-modlisp-socket* t
+ "
whether to close the modlisp socket at the end of this request
")
-(defvar *apache-socket* nil
- "the socket stream to apache")
-(defvar *close-apache-socket* nil
- "set to T if you want to close the socket to apache after
-the current command")
-(defvar *apache-nb-use-socket* 0
- "the number of requests sent in this socket")
+