anchor.diff:            do (write-byte (logand out #xff) stream))
       ;; (if mask-p
       ;;     (error "sending masked messages not implemented yet"))
  -    (swank-trace-dialog:trace-format "writing sequence")
       (if data (write-sequence data stream))
       (force-output stream)))
   
  
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:          (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)
  