anchor.diff:  (defun disconnect-client (client)
     (ws:write-to-client client :close))
   
  -(defun client-username (res client)
  -  (session-value 'username (client-session res client)))
  +(defun client-username (res client &aux (session (client-session res client)))
  +  (session-value 'username session)
  +  #+nil(concatenate 'string (session-value 'username session) "(session: " (princ-to-string session) ")"))
   
   (defclass chat-server (ws:ws-resource)
     ((clients :initform nil)))
  
positive.code:          (session (session-verify req)))
      (if session
          (progn
            ;; TODO - also remove the entry. :)
            (loop for (old-client old-session nil nil) in (slot-value srv 'clients)
               when (eq session old-session)
               do (disconnect-client old-client))
            (setf (client-session srv client) session))
          (disconnect-client client))))
  
  (defun register-chat-server ()
    (ws:register-global-resource
  
negative.code: 
  (defvar *server* nil)
  (defparameter *web-server-port* 8888)
  (defparameter *chat-server-port* 8889)
  (defvar *current-story* nil)
  (defvar *users* nil)
  (defvar *max-action-id* 0)
  (defvar *folder-dispatcher-pushed-p* nil)
  