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:          (resource-name (car params))
           (headers (cadr params))
           (*acceptor* *server*)
           (_ (format t "~&Validating client ~A.~%Resource name: ~A~%Headers: ~S~%User Agent: ~A"
                      client resource-name headers user-agent))
           (req (make-instance 'request :uri resource-name :remote-addr (ws::client-host client)
                               :headers-in (cons (cons :user-agent user-agent) headers)
  
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)
  