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