anchor.diff:                        dialogue))))))))
   
   ;; clws stuff
  -;; TODO - Check all this against HT session.
   (defgeneric add-client (chat-server client resource-name header))
   (defgeneric remove-client (chat-server client))
   (defgeneric validate-client (chat-server client user-agent))
   
   (defun disconnect-client (client)
  +  (ws:write-to-client client :close)
     ;; Chrome doesn't seem to pay attention to :close.
  -  (ws:write-to-client client :close)
     (ws::client-disconnect client :abort t))
   
   (defun client-session (client)
  
positive.code:                              :acceptor *server*))
           (session (session-verify req)))
      (declare (ignore _))
      ;; This whole chunk is ok.
      (if session
          (let ((old-session (cdr (find session (session-db *server*) :key #'cdr))))
            (format t "~&Got a session: ~A" session)
  
negative.code: 
  (defun client-username (client &aux (session (client-session client)))
    (when session
      (session-value 'username session)))
  
  (defclass chat-server (ws:ws-resource)
    ;; Really just 'pending' clients.
  