anchor.diff:     (ws:origin-prefix "http://zushakon.sykosomatic.org")))
   
   (defmethod add-client ((srv chat-server) client)
  -  (logit "Adding Pending Client ~S." client)
  +  (logit "Adding pending client ~S." client)
     (setf (gethash (client-ws-client client) (slot-value srv 'clients))
           client))
   
  
positive.code: 
  (defmethod ws:resource-received-text ((res chat-server) ws-client message
                                        &aux (client (find-client res ws-client)))
    (logit "Received resource frame.")
    (continuable
      (if (client-session client)
          (process-client-message res client message)
  
negative.code:       client)))
  
  (defmethod ws:resource-accept-connection ((res chat-server) resource-name headers ws-client)
    (continuable
      (let (alist-headers)
        (maphash (lambda (k v)
  