anchor.diff:  (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.
  
positive.code:   "A FLEXI-STREAMS external format used internally for logging and to
  encode cookie values.")
  
  (defparameter *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
    "The default connection timeout used when an acceptor is reading
  from and writing to a socket stream.")
  
  
negative.code: ;; see <http://common-lisp.net/project/hyperdoc/>
  ;; and <http://www.cliki.net/hyperdoc>
  
  (defvar *hyperdoc-base-uri* "http://weitz.de/hunchentoot/")
  
  (let ((exported-symbols-alist
         (loop for symbol being the external-symbols of :hunchentoot
  