anchor.diff:  
   (defun client-write (client string)
     (continuable
  -    (ws:write-to-client (client-ws-client client) string)))
  +    (ws:write-to-client-text (client-ws-client client) string)))
   
   (defun find-client (chat-server ws-client)
     (gethash ws-client (slot-value chat-server 'clients)))
  
positive.code: (defmethod disconnect-client ((server chat-server) client)
    (let ((ws-client (client-ws-client client))
          (session (client-session client)))
      (ws:write-to-client ws-client :close)
      (when session
        (deletef (session-websocket-clients session)
                 client))))
  
negative.code:   (logit "Client ~S disconnected." client)
    (continuable (remove-client res 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))))
  
  (defun actor-client (actor-id)
    (maphash-values (lambda (client)
  