anchor.diff:    (logit "Client ~S disconnected." client)
     (continuable (remove-client res client)))
   
  -(defmethod ws:resource-received-frame ((res chat-server) ws-client message
  -                                       &aux (client (find-client res ws-client)))
  +(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)
  -       (process-client-validation res client message))))
  +    (if (client-session client)
  +        (process-client-message res client message)
  +        (process-client-validation res client message))))
   
   (defun actor-client (actor-id)
     (maphash-values (lambda (client)
  
positive.code: 
  (defun client-write (client string)
    (continuable
      (ws:write-to-client (client-ws-client client) string)))
  
  (defun find-client (chat-server ws-client)
    (gethash ws-client (slot-value chat-server 'clients)))
  
negative.code:   (ws:register-global-resource
     "/chat"
     (setf *websocket-server* (make-instance 'chat-server :client-main client-main))
     (ws:origin-prefix "http://zushakon.sykosomatic.org")))
  
  (defmethod add-client ((srv chat-server) client)
    (logit "Adding Pending Client ~S." client)
  