anchor.diff:    (ws:register-global-resource
      "/chat"
      (setf *websocket-server* (make-instance 'chat-server :client-main client-main))
  -   (ws::origin-prefix "http://zushakon.sykosomatic.org")))
  +   (ws:origin-prefix "http://zushakon.sykosomatic.org")))
   
   (defmethod add-client ((srv chat-server) client)
     (logit "Adding Pending Client ~S." 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: (defmethod disconnect-client ((server chat-server) client)
    (let ((ws-client (client-ws-client client))
          (session (client-session client)))
      (ws:write-to-client-close ws-client)
      (when session
        (deletef (session-websocket-clients session)
                 client))))
  