[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/specials.lisp

Mon Aug 29 09:39:54 UTC 2011

Revision: 4676
Author: hans
URL: http://bknr.net/trac/changeset/4676

Change defparameters into defvars so that user customizations in a
running image are not overwritten when Hunchentoot is recompiled.

U   trunk/thirdparty/hunchentoot/specials.lisp

Modified: trunk/thirdparty/hunchentoot/specials.lisp
===================================================================

--- trunk/thirdparty/hunchentoot/specials.lisp	2011-08-29 09:38:09 UTC (rev 4675)
+++ trunk/thirdparty/hunchentoot/specials.lisp	2011-08-29 09:39:54 UTC (rev 4676)
@@ -114,16 +114,16 @@
   "The three-character names of the twelve months - needed for cookie
 date format.")
 
-(defparameter *rewrite-for-session-urls* t
+(defvar *rewrite-for-session-urls* t
   "Whether HTML pages should possibly be rewritten for cookie-less
 session-management.")
 
-(defparameter *content-types-for-url-rewrite*
+(defvar *content-types-for-url-rewrite*
   '("text/html" "application/xhtml+xml")
   "The content types for which url-rewriting is OK. See
 *REWRITE-FOR-SESSION-URLS*.")
 
-(defparameter *the-random-state* (make-random-state t)
+(defvar *the-random-state* (make-random-state t)
   "A fresh random state.")
 
 (defvar-unbound *session-secret*
@@ -154,20 +154,20 @@
 (defvar *session-db* nil
   "The default \(global) session database.")
 
-(defparameter *session-max-time* #.(* 30 60)
+(defvar *session-max-time* #.(* 30 60)
   "The default time \(in seconds) after which a session times out.")
 
-(defparameter *session-gc-frequency* 50
+(defvar *session-gc-frequency* 50
   "A session GC \(see function SESSION-GC) will happen every
 *SESSION-GC-FREQUENCY* requests \(counting only requests which create
 a new session) if this variable is not NIL.  See SESSION-CREATED.")
 
-(defparameter *use-user-agent-for-sessions* t
+(defvar *use-user-agent-for-sessions* t
   "Whether the 'User-Agent' header should be encoded into the session
 string.  If this value is true, a session will cease to be accessible
 if the client sends a different 'User-Agent' header.")
 
-(defparameter *use-remote-addr-for-sessions* nil
+(defvar *use-remote-addr-for-sessions* nil
   "Whether the client's remote IP \(as returned by REAL-REMOTE-ADDR)
 should be encoded into the session string.  If this value is true, a
 session will cease to be accessible if the client's remote IP changes.
@@ -175,42 +175,42 @@
 This might for example be an issue if the client uses a proxy server
 which doesn't send correct 'X_FORWARDED_FOR' headers.")
 
-(defparameter *default-content-type* "text/html"
+(defvar *default-content-type* "text/html"
   "The default content-type header which is returned to the client.
 If this is text content type, the character set used for encoding the
 response will automatically be added to the content type in a
 ``charset'' attribute.")
 
-(defparameter *methods-for-post-parameters* '(:post)
+(defvar *methods-for-post-parameters* '(:post)
   "A list of the request method types \(as keywords) for which
 Hunchentoot will try to compute POST-PARAMETERS.")
 
-(defparameter *header-stream* nil
+(defvar *header-stream* nil
   "If this variable is not NIL, it should be bound to a stream to
 which incoming and outgoing headers will be written for debugging
 purposes.")
 
-(defparameter *show-lisp-errors-p* nil
+(defvar *show-lisp-errors-p* nil
   "Whether Lisp errors in request handlers should be shown in HTML output.")
 
-(defparameter *show-lisp-backtraces-p* t
+(defvar *show-lisp-backtraces-p* t
   "Whether Lisp errors shown in HTML output should contain backtrace information.")
 
-(defparameter *log-lisp-errors-p* t
+(defvar *log-lisp-errors-p* t
   "Whether Lisp errors in request handlers should be logged.")
 
-(defparameter *log-lisp-backtraces-p* t
+(defvar *log-lisp-backtraces-p* t
   "Whether Lisp backtraces should be logged.  Only has an effect if
 *LOG-LISP-ERRORS-P* is true as well.")
 
-(defparameter *log-lisp-warnings-p* t
+(defvar *log-lisp-warnings-p* t
   "Whether Lisp warnings in request handlers should be logged.")
 
-(defparameter *lisp-errors-log-level* :error
+(defvar *lisp-errors-log-level* :error
   "Log level for Lisp errors.  Should be one of :ERROR \(the default),
 :WARNING, or :INFO.")
 
-(defparameter *lisp-warnings-log-level* :warning
+(defvar *lisp-warnings-log-level* :warning
   "Log level for Lisp warnings.  Should be one of :ERROR, :WARNING
 \(the default), or :INFO.")
 
@@ -222,7 +222,7 @@
   "A global lock to prevent concurrent access to the log file used by
 the ACCEPTOR-LOG-ACCESS function.")
 
-(defparameter *catch-errors-p* t
+(defvar *catch-errors-p* t
   "Whether Hunchentoot should catch and log errors \(or rather invoke
 the debugger).")
 
@@ -246,7 +246,7 @@
   #+:openmcl "http://openmcl.clozure.com/"
   "A link to the website of the underlying Lisp implementation.")
 
-(defparameter *tmp-directory*
+(defvar *tmp-directory*
   #+(or :win32 :mswindows) "c:\\hunchentoot-temp\\"
   #-(or :win32 :mswindows) "/tmp/hunchentoot/"
   "Directory for temporary files created by MAKE-TMP-FILE-NAME.")
@@ -264,13 +264,13 @@
   "A FLEXI-STREAMS external format used internally for logging and to
 encode cookie values.")
 
-(defparameter *hunchentoot-default-external-format* +utf-8+
+(defvar *hunchentoot-default-external-format* +utf-8+
   "The external format used to compute the REQUEST object.")
 
 (defconstant +buffer-length+ 8192
   "Length of buffers used for internal purposes.")
 
-(defparameter *default-connection-timeout* 20
+(defvar *default-connection-timeout* 20
   "The default connection timeout used when an acceptor is reading
 from and writing to a socket stream.")
 
@@ -295,7 +295,7 @@
 ;; see <http://common-lisp.net/project/hyperdoc/>
 ;; and <http://www.cliki.net/hyperdoc>
 
-(defparameter *hyperdoc-base-uri* "http://weitz.de/hunchentoot/")
+(defvar *hyperdoc-base-uri* "http://weitz.de/hunchentoot/")
 
 (let ((exported-symbols-alist
        (loop for symbol being the external-symbols of :hunchentoot



