anchor.diff:  (defclass websocket-acceptor (acceptor)
     ((websocket-timeout :initarg :websocket-timeout
                         :accessor websocket-timeout
  -                      :initform 60
  +                      :initform 300
                         :documentation "Custom WebSocket timeout override."))
     (:default-initargs :request-class 'websocket-request
                        :reply-class 'websocket-reply))
  
positive.code:    (client-class :initarg :client-class :initform 'websocket-client)
     (lock :initform (make-lock))))
  
  (defgeneric text-message-received (resource client message))
  
  (defgeneric binary-message-received  (resource client binary))
  
negative.code:          (progn
             (bt:with-lock-held (lock)
               (push client clients))
             (setf (slot-value client 'state) :connected)
             (client-connected resource client)
             (funcall fn))
        (bt:with-lock-held (lock)
  