anchor.diff:    8889
   )
   (defvar *current-story* nil)
  -(defvar *users* nil)
   (defvar *max-action-id* 0)
   (defvar *folder-dispatcher-pushed-p* nil)
   (defparameter *belletrist-path* (asdf:system-relative-pathname 'belletrist "res/"))
  
positive.code: 
  (define-easy-handler (logout-page :uri "/logout") ()
    (when (and *session* (session-value 'username))
      (logout *session*)
      (setf (session-value 'username) nil))
    (redirect "/login"))
  
  (define-easy-handler (ajax-ping :uri "/pingme") ()
  
negative.code:   (let ((username (session-value 'username session))
          (websocket-client (session-value 'websocket-client session)))
      (when username
        (setf (session-value 'username session) nil)
        (format t "~&~A logged out.~%" username))
      (when websocket-client
        (disconnect-client websocket-client))))
  
  (defun active-account-sessions (username)
    "Finds all sessions that are logged in as USERNAME."
    (loop for (nil . session) in (session-db *server*)
       for session-user = (session-value 'username session)
       when (and session-user (string-equal session-user username))
       collect session))
  
  (defun render-login-component ()
    (<:form :name "login" :action "/login"
  