anchor.diff:           (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)
  
positive.code: (defclass websocket-acceptor (acceptor)
    ((websocket-timeout :initarg :websocket-timeout
                        :accessor websocket-timeout
                        :initform 60
                        :documentation "Custom WebSocket timeout override."))
    (:default-initargs :request-class 'websocket-request
                       :reply-class 'websocket-reply))
  
negative.code:           do (write-byte (logand out #xff) stream))
      ;; (if mask-p
      ;;     (error "sending masked messages not implemented yet"))
      (if data (write-sequence data stream))
      (force-output stream)))
  
  