anchor.diff:          (bt:make-thread
            (lambda () (ws:run-resource-listener (ws:find-global-resource "/chat")))
            :name "chat resource listener"))
  -  (setf *users* nil
  -        *session-removal-hook* #'session-cleanup)
  +  (setf *session-removal-hook* #'session-cleanup)
     (start (setf *server* (make-instance 'acceptor :port *web-server-port*)))
     (setf *catch-errors-p* nil)
     t)
  
positive.code:   (let ((username (session-value 'username session))
          (websocket-client (session-value 'websocket-client session)))
      (when username
        (deletef *users* username :test #'string-equal)
        (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."
    (mapcar #'cdr
            (remove-if-not (curry #'equalp username)
                           (session-db *server*)
                           :key (compose (curry #'session-value 'username) #'cdr))))
  
  (defun render-login-component ()
    (<:form :name "login" :action "/login"
  
negative.code:   8889
  )
  (defvar *current-story* nil)
  (defvar *max-action-id* 0)
  (defvar *folder-dispatcher-pushed-p* nil)
  (defparameter *belletrist-path* (asdf:system-relative-pathname 'belletrist "res/"))
  