Skip to content
Commits on Source (2)
Hide whitespace changes
Inline Side-by-side
message_wire.lisp
View file @ 129dd7d3
......@@ -738,12 +738,12 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'display-text))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string id = 2[json_name = "id"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'id))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -904,12 +904,12 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'display-text))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string url = 2[json_name = "url"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'url))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -1070,12 +1070,12 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'display-text))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string phoneNumber = 2[json_name = "phoneNumber"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'phone-number))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -1325,19 +1325,19 @@
;; optional uint32 index = 4[json_name = "index"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'index)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'index)))))
;; .proto.HydratedQuickReplyButton quickReplyButton = 1[json_name = "quickReplyButton"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'quick-reply-button))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.HydratedURLButton urlButton = 2[json_name = "urlButton"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'url-button))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.HydratedCallButton callButton = 3[json_name = "callButton"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'call-button))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -1579,12 +1579,12 @@
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'display-text))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional string id = 2[json_name = "id"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'id))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -1774,11 +1774,11 @@
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'display-text))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.HighlyStructuredMessage url = 2[json_name = "url"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'url))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -1980,11 +1980,11 @@
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'display-text))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.HighlyStructuredMessage phoneNumber = 2[json_name = "phoneNumber"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'phone-number))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -2258,19 +2258,19 @@
;; optional uint32 index = 4[json_name = "index"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'index)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'index)))))
;; .proto.QuickReplyButton quickReplyButton = 1[json_name = "quickReplyButton"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'quick-reply-button))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.URLButton urlButton = 2[json_name = "urlButton"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'url-button))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.CallButton callButton = 3[json_name = "callButton"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'call-button))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -2542,7 +2542,7 @@
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'name))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -2781,11 +2781,11 @@
;; optional int32 xDeprecated = 1[json_name = "xDeprecated"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'xdeprecated))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'xdeprecated))))))
;; optional int32 yDeprecated = 2[json_name = "yDeprecated"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'ydeprecated))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'ydeprecated))))))
;; optional double x = 3[json_name = "x"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -2992,14 +2992,14 @@
;; .proto.Location location = 2[json_name = "location"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'location))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; repeated .proto.Point polygonVertices = 1[json_name = "polygonVertices"];
(cl:let* ((v (cl:slot-value self 'polygon-vertices))
(length (cl:length v)))
(cl:incf size (cl:* 1 length))
(cl:dotimes (i length)
(cl:let ((s (pb:octet-size (cl:aref v i))))
(cl:incf size (cl:+ s (varint:length32 s))))))
(cl:incf size (cl:+ s (varint:length-uint32 s))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -3244,21 +3244,21 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'advertiser-name))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.AdReplyInfo.AD_REPLY_INFO_MEDIATYPE mediaType = 2[json_name = "mediaType"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-type)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-type)))))
;; optional bytes jpegThumbnail = 16[json_name = "jpegThumbnail"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'jpeg-thumbnail))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string caption = 17[json_name = "caption"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'caption))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -3859,39 +3859,39 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'stanza-id))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string participant = 2[json_name = "participant"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'participant))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.Message quotedMessage = 3[json_name = "quotedMessage"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'quoted-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional string remoteJid = 4[json_name = "remoteJid"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'remote-jid))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string conversionSource = 18[json_name = "conversionSource"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'conversion-source))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes conversionData = 19[json_name = "conversionData"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'conversion-data))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional uint32 conversionDelaySeconds = 20[json_name = "conversionDelaySeconds"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 2 (varint:length32 (cl:slot-value self 'conversion-delay-seconds)))))
(cl:+ 2 (varint:length-uint32 (cl:slot-value self 'conversion-delay-seconds)))))
;; optional uint32 forwardingScore = 21[json_name = "forwardingScore"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 2 (varint:length32 (cl:slot-value self 'forwarding-score)))))
(cl:+ 2 (varint:length-uint32 (cl:slot-value self 'forwarding-score)))))
;; optional bool isForwarded = 22[json_name = "isForwarded"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -3899,26 +3899,26 @@
;; optional .proto.AdReplyInfo quotedAd = 23[json_name = "quotedAd"];
(cl:when (cl:logbitp 10 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'quoted-ad))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.MessageKey placeholderKey = 24[json_name = "placeholderKey"];
(cl:when (cl:logbitp 11 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'placeholder-key))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional uint32 expiration = 25[json_name = "expiration"];
(cl:when (cl:logbitp 12 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 2 (varint:length32 (cl:slot-value self 'expiration)))))
(cl:+ 2 (varint:length-uint32 (cl:slot-value self 'expiration)))))
;; optional int64 ephemeralSettingTimestamp = 26[json_name = "ephemeralSettingTimestamp"];
(cl:when (cl:logbitp 13 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 2 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'ephemeral-setting-timestamp))))))
(cl:+ 2 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'ephemeral-setting-timestamp))))))
;; repeated string mentionedJid = 15[json_name = "mentionedJid"];
(cl:let* ((x (cl:slot-value self 'mentioned-jid))
(length (cl:length x)))
(cl:incf size (cl:* 1 length))
(cl:dotimes (i length)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:aref x i))))
(cl:+ s (varint:length32 s))))))
(cl:+ s (varint:length-uint32 s))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -4332,12 +4332,12 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'group-id))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes axolotlSenderKeyDistributionMessage = 2[json_name = "axolotlSenderKeyDistributionMessage"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'axolotl-sender-key-distribution-message))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -5093,103 +5093,103 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'url))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string mimetype = 2[json_name = "mimetype"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'mimetype))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string caption = 3[json_name = "caption"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'caption))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes fileSha256 = 4[json_name = "fileSha256"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional uint64 fileLength = 5[json_name = "fileLength"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'file-length)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'file-length)))))
;; optional uint32 height = 6[json_name = "height"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'height)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'height)))))
;; optional uint32 width = 7[json_name = "width"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'width)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'width)))))
;; optional bytes mediaKey = 8[json_name = "mediaKey"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'media-key))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes fileEncSha256 = 9[json_name = "fileEncSha256"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-enc-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string directPath = 11[json_name = "directPath"];
(cl:when (cl:logbitp 10 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'direct-path))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional int64 mediaKeyTimestamp = 12[json_name = "mediaKeyTimestamp"];
(cl:when (cl:logbitp 11 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-key-timestamp))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-key-timestamp))))))
;; optional bytes jpegThumbnail = 16[json_name = "jpegThumbnail"];
(cl:when (cl:logbitp 12 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'jpeg-thumbnail))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 17[json_name = "contextInfo"];
(cl:when (cl:logbitp 13 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional bytes firstScanSidecar = 18[json_name = "firstScanSidecar"];
(cl:when (cl:logbitp 14 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'first-scan-sidecar))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional uint32 firstScanLength = 19[json_name = "firstScanLength"];
(cl:when (cl:logbitp 15 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 2 (varint:length32 (cl:slot-value self 'first-scan-length)))))
(cl:+ 2 (varint:length-uint32 (cl:slot-value self 'first-scan-length)))))
;; optional uint32 experimentGroupId = 20[json_name = "experimentGroupId"];
(cl:when (cl:logbitp 16 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 2 (varint:length32 (cl:slot-value self 'experiment-group-id)))))
(cl:+ 2 (varint:length-uint32 (cl:slot-value self 'experiment-group-id)))))
;; optional bytes scansSidecar = 21[json_name = "scansSidecar"];
(cl:when (cl:logbitp 17 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'scans-sidecar))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes midQualityFileSha256 = 23[json_name = "midQualityFileSha256"];
(cl:when (cl:logbitp 19 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'mid-quality-file-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes midQualityFileEncSha256 = 24[json_name = "midQualityFileEncSha256"];
(cl:when (cl:logbitp 20 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'mid-quality-file-enc-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; repeated .proto.InteractiveAnnotation interactiveAnnotations = 10[json_name = "interactiveAnnotations"];
(cl:let* ((v (cl:slot-value self 'interactive-annotations))
(length (cl:length v)))
(cl:incf size (cl:* 1 length))
(cl:dotimes (i length)
(cl:let ((s (pb:octet-size (cl:aref v i))))
(cl:incf size (cl:+ s (varint:length32 s))))))
(cl:incf size (cl:+ s (varint:length-uint32 s))))))
;; repeated uint32 scanLengths = 22[json_name = "scanLengths"];
(cl:let* ((x (cl:slot-value self 'scan-lengths))
(length (cl:length x)))
(cl:incf size (cl:* 2 length))
(cl:dotimes (i length)
(cl:incf size (varint:length32 (cl:aref x i)))))
(cl:incf size (varint:length-uint32 (cl:aref x i)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -5766,16 +5766,16 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'display-name))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string vcard = 16[json_name = "vcard"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'vcard))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 17[json_name = "contextInfo"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -6296,17 +6296,17 @@
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'name))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string address = 4[json_name = "address"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'address))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string url = 5[json_name = "url"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'url))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bool isLive = 6[json_name = "isLive"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -6314,7 +6314,7 @@
;; optional uint32 accuracyInMeters = 7[json_name = "accuracyInMeters"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'accuracy-in-meters)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'accuracy-in-meters)))))
;; optional float speedInMps = 8[json_name = "speedInMps"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -6322,21 +6322,21 @@
;; optional uint32 degreesClockwiseFromMagneticNorth = 9[json_name = "degreesClockwiseFromMagneticNorth"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'degrees-clockwise-from-magnetic-north)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'degrees-clockwise-from-magnetic-north)))))
;; optional string comment = 11[json_name = "comment"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'comment))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes jpegThumbnail = 16[json_name = "jpegThumbnail"];
(cl:when (cl:logbitp 10 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'jpeg-thumbnail))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 17[json_name = "contextInfo"];
(cl:when (cl:logbitp 11 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -7013,27 +7013,27 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'text))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string matchedText = 2[json_name = "matchedText"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'matched-text))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string canonicalUrl = 4[json_name = "canonicalUrl"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'canonical-url))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string description = 5[json_name = "description"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'description))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string title = 6[json_name = "title"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'title))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional fixed32 textArgb = 7[json_name = "textArgb"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -7045,20 +7045,20 @@
;; optional .proto.ExtendedTextMessage.EXTENDED_TEXT_MESSAGE_FONTTYPE font = 9[json_name = "font"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'font)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'font)))))
;; optional .proto.ExtendedTextMessage.EXTENDED_TEXT_MESSAGE_PREVIEWTYPE previewType = 10[json_name = "previewType"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'preview-type)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'preview-type)))))
;; optional bytes jpegThumbnail = 16[json_name = "jpegThumbnail"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'jpeg-thumbnail))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 17[json_name = "contextInfo"];
(cl:when (cl:logbitp 10 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional bool doNotPlayInline = 18[json_name = "doNotPlayInline"];
(cl:when (cl:logbitp 11 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -7774,63 +7774,63 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'url))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string mimetype = 2[json_name = "mimetype"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'mimetype))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string title = 3[json_name = "title"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'title))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes fileSha256 = 4[json_name = "fileSha256"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional uint64 fileLength = 5[json_name = "fileLength"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'file-length)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'file-length)))))
;; optional uint32 pageCount = 6[json_name = "pageCount"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'page-count)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'page-count)))))
;; optional bytes mediaKey = 7[json_name = "mediaKey"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'media-key))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string fileName = 8[json_name = "fileName"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'file-name))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes fileEncSha256 = 9[json_name = "fileEncSha256"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-enc-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string directPath = 10[json_name = "directPath"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'direct-path))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional int64 mediaKeyTimestamp = 11[json_name = "mediaKeyTimestamp"];
(cl:when (cl:logbitp 10 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-key-timestamp))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-key-timestamp))))))
;; optional bytes jpegThumbnail = 16[json_name = "jpegThumbnail"];
(cl:when (cl:logbitp 11 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'jpeg-thumbnail))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 17[json_name = "contextInfo"];
(cl:when (cl:logbitp 12 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -8520,25 +8520,25 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'url))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string mimetype = 2[json_name = "mimetype"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'mimetype))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes fileSha256 = 3[json_name = "fileSha256"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional uint64 fileLength = 4[json_name = "fileLength"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'file-length)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'file-length)))))
;; optional uint32 seconds = 5[json_name = "seconds"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'seconds)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'seconds)))))
;; optional bool ptt = 6[json_name = "ptt"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -8547,30 +8547,30 @@
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'media-key))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes fileEncSha256 = 8[json_name = "fileEncSha256"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-enc-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string directPath = 9[json_name = "directPath"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'direct-path))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional int64 mediaKeyTimestamp = 10[json_name = "mediaKeyTimestamp"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-key-timestamp))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-key-timestamp))))))
;; optional .proto.ContextInfo contextInfo = 17[json_name = "contextInfo"];
(cl:when (cl:logbitp 10 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional bytes streamingSidecar = 18[json_name = "streamingSidecar"];
(cl:when (cl:logbitp 11 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'streaming-sidecar))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -9425,35 +9425,35 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'url))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string mimetype = 2[json_name = "mimetype"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'mimetype))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes fileSha256 = 3[json_name = "fileSha256"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional uint64 fileLength = 4[json_name = "fileLength"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'file-length)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'file-length)))))
;; optional uint32 seconds = 5[json_name = "seconds"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'seconds)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'seconds)))))
;; optional bytes mediaKey = 6[json_name = "mediaKey"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'media-key))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string caption = 7[json_name = "caption"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'caption))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bool gifPlayback = 8[json_name = "gifPlayback"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -9461,50 +9461,50 @@
;; optional uint32 height = 9[json_name = "height"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'height)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'height)))))
;; optional uint32 width = 10[json_name = "width"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'width)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'width)))))
;; optional bytes fileEncSha256 = 11[json_name = "fileEncSha256"];
(cl:when (cl:logbitp 10 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-enc-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string directPath = 13[json_name = "directPath"];
(cl:when (cl:logbitp 12 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'direct-path))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional int64 mediaKeyTimestamp = 14[json_name = "mediaKeyTimestamp"];
(cl:when (cl:logbitp 13 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-key-timestamp))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-key-timestamp))))))
;; optional bytes jpegThumbnail = 16[json_name = "jpegThumbnail"];
(cl:when (cl:logbitp 14 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'jpeg-thumbnail))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 17[json_name = "contextInfo"];
(cl:when (cl:logbitp 15 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional bytes streamingSidecar = 18[json_name = "streamingSidecar"];
(cl:when (cl:logbitp 16 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'streaming-sidecar))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.VideoMessage.VIDEO_MESSAGE_ATTRIBUTION gifAttribution = 19[json_name = "gifAttribution"];
(cl:when (cl:logbitp 17 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'gif-attribution)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'gif-attribution)))))
;; repeated .proto.InteractiveAnnotation interactiveAnnotations = 12[json_name = "interactiveAnnotations"];
(cl:let* ((v (cl:slot-value self 'interactive-annotations))
(length (cl:length v)))
(cl:incf size (cl:* 1 length))
(cl:dotimes (i length)
(cl:let ((s (pb:octet-size (cl:aref v i))))
(cl:incf size (cl:+ s (varint:length32 s))))))
(cl:incf size (cl:+ s (varint:length-uint32 s))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -9942,7 +9942,7 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'call-key))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -10086,12 +10086,12 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'display-name))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string id = 2[json_name = "id"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'id))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -10362,23 +10362,23 @@
;; optional .proto.MessageKey key = 1[json_name = "key"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'key))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.ProtocolMessage.PROTOCOL_MESSAGE_TYPE type = 2[json_name = "type"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'type)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'type)))))
;; optional uint32 ephemeralExpiration = 4[json_name = "ephemeralExpiration"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'ephemeral-expiration)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'ephemeral-expiration)))))
;; optional int64 ephemeralSettingTimestamp = 5[json_name = "ephemeralSettingTimestamp"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'ephemeral-setting-timestamp))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'ephemeral-setting-timestamp))))))
;; optional .proto.HistorySyncNotification historySyncNotification = 6[json_name = "historySyncNotification"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'history-sync-notification))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -10779,34 +10779,34 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional uint64 fileLength = 2[json_name = "fileLength"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'file-length)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'file-length)))))
;; optional bytes mediaKey = 3[json_name = "mediaKey"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'media-key))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes fileEncSha256 = 4[json_name = "fileEncSha256"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-enc-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string directPath = 5[json_name = "directPath"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'direct-path))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.HistorySyncNotification.HISTORY_SYNC_NOTIFICATION_HISTORYSYNCTYPE syncType = 6[json_name = "syncType"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'sync-type)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'sync-type)))))
;; optional uint32 chunkOrder = 7[json_name = "chunkOrder"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'chunk-order)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'chunk-order)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -11093,18 +11093,18 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'display-name))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 17[json_name = "contextInfo"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; repeated .proto.ContactMessage contacts = 2[json_name = "contacts"];
(cl:let* ((v (cl:slot-value self 'contacts))
(length (cl:length v)))
(cl:incf size (cl:* 1 length))
(cl:dotimes (i length)
(cl:let ((s (pb:octet-size (cl:aref v i))))
(cl:incf size (cl:+ s (varint:length32 s))))))
(cl:incf size (cl:+ s (varint:length-uint32 s))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -11302,11 +11302,11 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'currency-code))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional int64 amount1000 = 2[json_name = "amount1000"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'amount1000))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'amount1000))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -11620,31 +11620,31 @@
;; optional .proto.HSMDateTimeComponent.HSM_DATE_TIME_COMPONENT_DAYOFWEEKTYPE dayOfWeek = 1[json_name = "dayOfWeek"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'day-of-week)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'day-of-week)))))
;; optional uint32 year = 2[json_name = "year"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'year)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'year)))))
;; optional uint32 month = 3[json_name = "month"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'month)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'month)))))
;; optional uint32 dayOfMonth = 4[json_name = "dayOfMonth"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'day-of-month)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'day-of-month)))))
;; optional uint32 hour = 5[json_name = "hour"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'hour)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'hour)))))
;; optional uint32 minute = 6[json_name = "minute"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'minute)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'minute)))))
;; optional .proto.HSMDateTimeComponent.HSM_DATE_TIME_COMPONENT_CALENDARTYPE calendar = 7[json_name = "calendar"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'calendar)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'calendar)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -11879,7 +11879,7 @@
;; optional int64 timestamp = 1[json_name = "timestamp"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'timestamp))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'timestamp))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -12041,11 +12041,11 @@
;; .proto.HSMDateTimeComponent component = 1[json_name = "component"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'component))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.HSMDateTimeUnixEpoch unixEpoch = 2[json_name = "unixEpoch"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'unix-epoch))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -12280,15 +12280,15 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'default))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; .proto.HSMCurrency currency = 2[json_name = "currency"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'currency))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.HSMDateTime dateTime = 3[json_name = "dateTime"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'date-time))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -12711,50 +12711,50 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'namespace))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string elementName = 2[json_name = "elementName"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'element-name))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string fallbackLg = 4[json_name = "fallbackLg"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'fallback-lg))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string fallbackLc = 5[json_name = "fallbackLc"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'fallback-lc))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string deterministicLg = 7[json_name = "deterministicLg"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'deterministic-lg))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string deterministicLc = 8[json_name = "deterministicLc"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'deterministic-lc))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.TemplateMessage hydratedHsm = 9[json_name = "hydratedHsm"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'hydrated-hsm))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; repeated string params = 3[json_name = "params"];
(cl:let* ((x (cl:slot-value self 'params))
(length (cl:length x)))
(cl:incf size (cl:* 1 length))
(cl:dotimes (i length)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:aref x i))))
(cl:+ s (varint:length32 s))))))
(cl:+ s (varint:length-uint32 s))))))
;; repeated .proto.HSMLocalizableParameter localizableParams = 6[json_name = "localizableParams"];
(cl:let* ((v (cl:slot-value self 'localizable-params))
(length (cl:length v)))
(cl:incf size (cl:* 1 length))
(cl:dotimes (i length)
(cl:let ((s (pb:octet-size (cl:aref v i))))
(cl:incf size (cl:+ s (varint:length32 s))))))
(cl:incf size (cl:+ s (varint:length-uint32 s))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -13074,11 +13074,11 @@
;; optional .proto.Message noteMessage = 2[json_name = "noteMessage"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'note-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.MessageKey requestMessageKey = 3[json_name = "requestMessageKey"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'request-message-key))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -13365,25 +13365,25 @@
;; optional .proto.Message noteMessage = 4[json_name = "noteMessage"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'note-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional string currencyCodeIso4217 = 1[json_name = "currencyCodeIso4217"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'currency-code-iso4217))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional uint64 amount1000 = 2[json_name = "amount1000"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'amount1000)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'amount1000)))))
;; optional string requestFrom = 3[json_name = "requestFrom"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'request-from))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional int64 expiryTimestamp = 5[json_name = "expiryTimestamp"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'expiry-timestamp))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'expiry-timestamp))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -13585,7 +13585,7 @@
;; optional .proto.MessageKey key = 1[json_name = "key"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'key))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -13717,7 +13717,7 @@
;; optional .proto.MessageKey key = 1[json_name = "key"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'key))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -14138,7 +14138,7 @@
;; optional uint32 accuracyInMeters = 3[json_name = "accuracyInMeters"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'accuracy-in-meters)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'accuracy-in-meters)))))
;; optional float speedInMps = 4[json_name = "speedInMps"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -14146,29 +14146,29 @@
;; optional uint32 degreesClockwiseFromMagneticNorth = 5[json_name = "degreesClockwiseFromMagneticNorth"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'degrees-clockwise-from-magnetic-north)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'degrees-clockwise-from-magnetic-north)))))
;; optional string caption = 6[json_name = "caption"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'caption))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional int64 sequenceNumber = 7[json_name = "sequenceNumber"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'sequence-number))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'sequence-number))))))
;; optional uint32 timeOffset = 8[json_name = "timeOffset"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'time-offset)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'time-offset)))))
;; optional bytes jpegThumbnail = 16[json_name = "jpegThumbnail"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'jpeg-thumbnail))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 17[json_name = "contextInfo"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -14909,57 +14909,57 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'url))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes fileSha256 = 2[json_name = "fileSha256"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes fileEncSha256 = 3[json_name = "fileEncSha256"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'file-enc-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes mediaKey = 4[json_name = "mediaKey"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'media-key))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string mimetype = 5[json_name = "mimetype"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'mimetype))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional uint32 height = 6[json_name = "height"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'height)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'height)))))
;; optional uint32 width = 7[json_name = "width"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'width)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'width)))))
;; optional string directPath = 8[json_name = "directPath"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'direct-path))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional uint64 fileLength = 9[json_name = "fileLength"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'file-length)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'file-length)))))
;; optional int64 mediaKeyTimestamp = 10[json_name = "mediaKeyTimestamp"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-key-timestamp))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-key-timestamp))))))
;; optional uint32 firstFrameLength = 11[json_name = "firstFrameLength"];
(cl:when (cl:logbitp 10 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'first-frame-length)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'first-frame-length)))))
;; optional bytes firstFrameSidecar = 12[json_name = "firstFrameSidecar"];
(cl:when (cl:logbitp 11 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'first-frame-sidecar))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bool isAnimated = 13[json_name = "isAnimated"];
(cl:when (cl:logbitp 12 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -14968,11 +14968,11 @@
(cl:when (cl:logbitp 13 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'png-thumbnail))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 17[json_name = "contextInfo"];
(cl:when (cl:logbitp 14 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -15624,38 +15624,38 @@
;; optional .proto.HighlyStructuredMessage content = 6[json_name = "content"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'content))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.HighlyStructuredMessage footer = 7[json_name = "footer"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'footer))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.DocumentMessage documentMessage = 1[json_name = "documentMessage"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'document-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.HighlyStructuredMessage highlyStructuredMessage = 2[json_name = "highlyStructuredMessage"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'highly-structured-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.ImageMessage imageMessage = 3[json_name = "imageMessage"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'image-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.VideoMessage videoMessage = 4[json_name = "videoMessage"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'video-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.LocationMessage locationMessage = 5[json_name = "locationMessage"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'location-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; repeated .proto.TemplateButton buttons = 8[json_name = "buttons"];
(cl:let* ((v (cl:slot-value self 'buttons))
(length (cl:length v)))
(cl:incf size (cl:* 1 length))
(cl:dotimes (i length)
(cl:let ((s (pb:octet-size (cl:aref v i))))
(cl:incf size (cl:+ s (varint:length32 s))))))
(cl:incf size (cl:+ s (varint:length-uint32 s))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -16263,45 +16263,45 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'hydrated-content-text))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string hydratedFooterText = 7[json_name = "hydratedFooterText"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'hydrated-footer-text))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string templateId = 9[json_name = "templateId"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'template-id))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; .proto.DocumentMessage documentMessage = 1[json_name = "documentMessage"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'document-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; string hydratedTitleText = 2[json_name = "hydratedTitleText"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'hydrated-title-text))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; .proto.ImageMessage imageMessage = 3[json_name = "imageMessage"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'image-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.VideoMessage videoMessage = 4[json_name = "videoMessage"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'video-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.LocationMessage locationMessage = 5[json_name = "locationMessage"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'location-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; repeated .proto.HydratedTemplateButton hydratedButtons = 8[json_name = "hydratedButtons"];
(cl:let* ((v (cl:slot-value self 'hydrated-buttons))
(length (cl:length v)))
(cl:incf size (cl:* 1 length))
(cl:dotimes (i length)
(cl:let ((s (pb:octet-size (cl:aref v i))))
(cl:incf size (cl:+ s (varint:length32 s))))))
(cl:incf size (cl:+ s (varint:length-uint32 s))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -16737,19 +16737,19 @@
;; optional .proto.ContextInfo contextInfo = 3[json_name = "contextInfo"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.HydratedFourRowTemplate hydratedTemplate = 4[json_name = "hydratedTemplate"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'hydrated-template))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.FourRowTemplate fourRowTemplate = 1[json_name = "fourRowTemplate"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'four-row-template))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; .proto.HydratedFourRowTemplate hydratedFourRowTemplate = 2[json_name = "hydratedFourRowTemplate"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'hydrated-four-row-template))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -17064,20 +17064,20 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'selected-id))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string selectedDisplayText = 2[json_name = "selectedDisplayText"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'selected-display-text))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 3[json_name = "contextInfo"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional uint32 selectedIndex = 4[json_name = "selectedIndex"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'selected-index)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'selected-index)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -17327,17 +17327,17 @@
;; optional .proto.ImageMessage catalogImage = 1[json_name = "catalogImage"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'catalog-image))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional string title = 2[json_name = "title"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'title))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string description = 3[json_name = "description"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'description))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -17789,50 +17789,50 @@
;; optional .proto.ImageMessage productImage = 1[json_name = "productImage"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'product-image))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional string productId = 2[json_name = "productId"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'product-id))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string title = 3[json_name = "title"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'title))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string description = 4[json_name = "description"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'description))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string currencyCode = 5[json_name = "currencyCode"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'currency-code))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional int64 priceAmount1000 = 6[json_name = "priceAmount1000"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'price-amount1000))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'price-amount1000))))))
;; optional string retailerId = 7[json_name = "retailerId"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'retailer-id))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string url = 8[json_name = "url"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'url))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional uint32 productImageCount = 9[json_name = "productImageCount"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'product-image-count)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'product-image-count)))))
;; optional string firstImageId = 11[json_name = "firstImageId"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'first-image-id))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -18235,20 +18235,20 @@
;; optional .proto.ProductSnapshot product = 1[json_name = "product"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'product))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional string businessOwnerJid = 2[json_name = "businessOwnerJid"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'business-owner-jid))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.CatalogSnapshot catalog = 4[json_name = "catalog"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'catalog))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 17[json_name = "contextInfo"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -18647,35 +18647,35 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'group-jid))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string inviteCode = 2[json_name = "inviteCode"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'invite-code))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional int64 inviteExpiration = 3[json_name = "inviteExpiration"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'invite-expiration))))))
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'invite-expiration))))))
;; optional string groupName = 4[json_name = "groupName"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'group-name))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes jpegThumbnail = 5[json_name = "jpegThumbnail"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'jpeg-thumbnail))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string caption = 6[json_name = "caption"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'caption))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.ContextInfo contextInfo = 7[json_name = "contextInfo"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'context-info))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -18943,11 +18943,11 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'destination-jid))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.Message message = 2[json_name = "message"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -19088,7 +19088,7 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'serialized-xml-bytes))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -20266,111 +20266,111 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'conversation))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.SenderKeyDistributionMessage senderKeyDistributionMessage = 2[json_name = "senderKeyDistributionMessage"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'sender-key-distribution-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.ImageMessage imageMessage = 3[json_name = "imageMessage"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'image-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.ContactMessage contactMessage = 4[json_name = "contactMessage"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'contact-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.LocationMessage locationMessage = 5[json_name = "locationMessage"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'location-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.ExtendedTextMessage extendedTextMessage = 6[json_name = "extendedTextMessage"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'extended-text-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.DocumentMessage documentMessage = 7[json_name = "documentMessage"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'document-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.AudioMessage audioMessage = 8[json_name = "audioMessage"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'audio-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.VideoMessage videoMessage = 9[json_name = "videoMessage"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'video-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.Call call = 10[json_name = "call"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'call))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.Chat chat = 11[json_name = "chat"];
(cl:when (cl:logbitp 10 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'chat))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.ProtocolMessage protocolMessage = 12[json_name = "protocolMessage"];
(cl:when (cl:logbitp 11 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'protocol-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.ContactsArrayMessage contactsArrayMessage = 13[json_name = "contactsArrayMessage"];
(cl:when (cl:logbitp 12 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'contacts-array-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.HighlyStructuredMessage highlyStructuredMessage = 14[json_name = "highlyStructuredMessage"];
(cl:when (cl:logbitp 13 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'highly-structured-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.SenderKeyDistributionMessage fastRatchetKeySenderKeyDistributionMessage = 15[json_name = "fastRatchetKeySenderKeyDistributionMessage"];
(cl:when (cl:logbitp 14 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'fast-ratchet-key-sender-key-distribution-message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.SendPaymentMessage sendPaymentMessage = 16[json_name = "sendPaymentMessage"];
(cl:when (cl:logbitp 15 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'send-payment-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.LiveLocationMessage liveLocationMessage = 18[json_name = "liveLocationMessage"];
(cl:when (cl:logbitp 16 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'live-location-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.RequestPaymentMessage requestPaymentMessage = 22[json_name = "requestPaymentMessage"];
(cl:when (cl:logbitp 17 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'request-payment-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.DeclinePaymentRequestMessage declinePaymentRequestMessage = 23[json_name = "declinePaymentRequestMessage"];
(cl:when (cl:logbitp 18 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'decline-payment-request-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.CancelPaymentRequestMessage cancelPaymentRequestMessage = 24[json_name = "cancelPaymentRequestMessage"];
(cl:when (cl:logbitp 19 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'cancel-payment-request-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.TemplateMessage templateMessage = 25[json_name = "templateMessage"];
(cl:when (cl:logbitp 20 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'template-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.StickerMessage stickerMessage = 26[json_name = "stickerMessage"];
(cl:when (cl:logbitp 21 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'sticker-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.GroupInviteMessage groupInviteMessage = 28[json_name = "groupInviteMessage"];
(cl:when (cl:logbitp 22 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'group-invite-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.TemplateButtonReplyMessage templateButtonReplyMessage = 29[json_name = "templateButtonReplyMessage"];
(cl:when (cl:logbitp 23 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'template-button-reply-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.ProductMessage productMessage = 30[json_name = "productMessage"];
(cl:when (cl:logbitp 24 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'product-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.DeviceSentMessage deviceSentMessage = 31[json_name = "deviceSentMessage"];
(cl:when (cl:logbitp 25 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'device-sent-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.DeviceSyncMessage deviceSyncMessage = 32[json_name = "deviceSyncMessage"];
(cl:when (cl:logbitp 26 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'device-sync-message))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -21331,7 +21331,7 @@
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'remote-jid))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bool fromMe = 2[json_name = "fromMe"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -21340,12 +21340,12 @@
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'id))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional string participant = 4[json_name = "participant"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'participant))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -22468,131 +22468,131 @@
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG labelsDisplay = 1[json_name = "labelsDisplay"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'labels-display)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'labels-display)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG voipIndividualOutgoing = 2[json_name = "voipIndividualOutgoing"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'voip-individual-outgoing)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'voip-individual-outgoing)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG groupsV3 = 3[json_name = "groupsV3"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'groups-v3)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'groups-v3)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG groupsV3Create = 4[json_name = "groupsV3Create"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'groups-v3create)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'groups-v3create)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG changeNumberV2 = 5[json_name = "changeNumberV2"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'change-number-v2)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'change-number-v2)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG queryStatusV3Thumbnail = 6[json_name = "queryStatusV3Thumbnail"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'query-status-v3thumbnail)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'query-status-v3thumbnail)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG liveLocations = 7[json_name = "liveLocations"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'live-locations)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'live-locations)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG queryVname = 8[json_name = "queryVname"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'query-vname)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'query-vname)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG voipIndividualIncoming = 9[json_name = "voipIndividualIncoming"];
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'voip-individual-incoming)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'voip-individual-incoming)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG quickRepliesQuery = 10[json_name = "quickRepliesQuery"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'quick-replies-query)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'quick-replies-query)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG payments = 11[json_name = "payments"];
(cl:when (cl:logbitp 10 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'payments)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'payments)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG stickerPackQuery = 12[json_name = "stickerPackQuery"];
(cl:when (cl:logbitp 11 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'sticker-pack-query)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'sticker-pack-query)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG liveLocationsFinal = 13[json_name = "liveLocationsFinal"];
(cl:when (cl:logbitp 12 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'live-locations-final)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'live-locations-final)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG labelsEdit = 14[json_name = "labelsEdit"];
(cl:when (cl:logbitp 13 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'labels-edit)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'labels-edit)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG mediaUpload = 15[json_name = "mediaUpload"];
(cl:when (cl:logbitp 14 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-upload)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-upload)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG mediaUploadRichQuickReplies = 18[json_name = "mediaUploadRichQuickReplies"];
(cl:when (cl:logbitp 15 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-upload-rich-quick-replies)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-upload-rich-quick-replies)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG vnameV2 = 19[json_name = "vnameV2"];
(cl:when (cl:logbitp 16 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'vname-v2)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'vname-v2)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG videoPlaybackUrl = 20[json_name = "videoPlaybackUrl"];
(cl:when (cl:logbitp 17 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'video-playback-url)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'video-playback-url)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG statusRanking = 21[json_name = "statusRanking"];
(cl:when (cl:logbitp 18 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'status-ranking)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'status-ranking)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG voipIndividualVideo = 22[json_name = "voipIndividualVideo"];
(cl:when (cl:logbitp 19 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'voip-individual-video)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'voip-individual-video)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG thirdPartyStickers = 23[json_name = "thirdPartyStickers"];
(cl:when (cl:logbitp 20 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'third-party-stickers)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'third-party-stickers)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG frequentlyForwardedSetting = 24[json_name = "frequentlyForwardedSetting"];
(cl:when (cl:logbitp 21 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'frequently-forwarded-setting)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'frequently-forwarded-setting)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG groupsV4JoinPermission = 25[json_name = "groupsV4JoinPermission"];
(cl:when (cl:logbitp 22 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'groups-v4join-permission)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'groups-v4join-permission)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG recentStickers = 26[json_name = "recentStickers"];
(cl:when (cl:logbitp 23 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'recent-stickers)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'recent-stickers)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG catalog = 27[json_name = "catalog"];
(cl:when (cl:logbitp 24 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'catalog)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'catalog)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG starredStickers = 28[json_name = "starredStickers"];
(cl:when (cl:logbitp 25 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'starred-stickers)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'starred-stickers)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG voipGroupCall = 29[json_name = "voipGroupCall"];
(cl:when (cl:logbitp 26 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'voip-group-call)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'voip-group-call)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG templateMessage = 30[json_name = "templateMessage"];
(cl:when (cl:logbitp 27 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'template-message)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'template-message)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG templateMessageInteractivity = 31[json_name = "templateMessageInteractivity"];
(cl:when (cl:logbitp 28 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'template-message-interactivity)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'template-message-interactivity)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG ephemeralMessages = 32[json_name = "ephemeralMessages"];
(cl:when (cl:logbitp 29 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'ephemeral-messages)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'ephemeral-messages)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG e2ENotificationSync = 33[json_name = "e2ENotificationSync"];
(cl:when (cl:logbitp 30 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'e2-e-notification-sync)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'e2-e-notification-sync)))))
;; optional .proto.WebFeatures.WEB_FEATURES_FLAG recentStickersV2 = 34[json_name = "recentStickersV2"];
(cl:when (cl:logbitp 31 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'recent-stickers-v2)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'recent-stickers-v2)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -23443,22 +23443,22 @@
;; optional uint64 timestamp = 2[json_name = "timestamp"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'timestamp)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'timestamp)))))
;; optional uint32 unreadChats = 3[json_name = "unreadChats"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'unread-chats)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'unread-chats)))))
;; optional uint32 notifyMessageCount = 4[json_name = "notifyMessageCount"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'notify-message-count)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'notify-message-count)))))
;; repeated .proto.NotificationMessageInfo notifyMessage = 5[json_name = "notifyMessage"];
(cl:let* ((v (cl:slot-value self 'notify-message))
(length (cl:length v)))
(cl:incf size (cl:* 1 length))
(cl:dotimes (i length)
(cl:let ((s (pb:octet-size (cl:aref v i))))
(cl:incf size (cl:+ s (varint:length32 s))))))
(cl:incf size (cl:+ s (varint:length-uint32 s))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -23749,20 +23749,20 @@
;; optional .proto.MessageKey key = 1[json_name = "key"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'key))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.Message message = 2[json_name = "message"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional uint64 messageTimestamp = 3[json_name = "messageTimestamp"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'message-timestamp)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'message-timestamp)))))
;; optional string participant = 4[json_name = "participant"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'participant))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -24039,22 +24039,22 @@
;; optional uint64 timestamp = 2[json_name = "timestamp"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'timestamp)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'timestamp)))))
;; optional uint32 unreadChats = 3[json_name = "unreadChats"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'unread-chats)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'unread-chats)))))
;; optional uint32 notifyMessageCount = 4[json_name = "notifyMessageCount"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length32 (cl:slot-value self 'notify-message-count)))))
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'notify-message-count)))))
;; repeated .proto.WebMessageInfo notifyMessages = 5[json_name = "notifyMessages"];
(cl:let* ((v (cl:slot-value self 'notify-messages))
(length (cl:length v)))
(cl:incf size (cl:* 1 length))
(cl:dotimes (i length)
(cl:let ((s (pb:octet-size (cl:aref v i))))
(cl:incf size (cl:+ s (varint:length32 s))))))
(cl:incf size (cl:+ s (varint:length-uint32 s))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -24522,32 +24522,32 @@
;; optional .proto.PaymentInfo.PAYMENT_INFO_CURRENCY currencyDeprecated = 1[json_name = "currencyDeprecated"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'currency-deprecated)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'currency-deprecated)))))
;; optional uint64 amount1000 = 2[json_name = "amount1000"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'amount1000)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'amount1000)))))
;; optional string receiverJid = 3[json_name = "receiverJid"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'receiver-jid))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.PaymentInfo.PAYMENT_INFO_STATUS status = 4[json_name = "status"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'status)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'status)))))
;; optional uint64 transactionTimestamp = 5[json_name = "transactionTimestamp"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'transaction-timestamp)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'transaction-timestamp)))))
;; optional .proto.MessageKey requestMessageKey = 6[json_name = "requestMessageKey"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'request-message-key))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional uint64 expiryTimestamp = 7[json_name = "expiryTimestamp"];
(cl:when (cl:logbitp 6 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'expiry-timestamp)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'expiry-timestamp)))))
;; optional bool futureproofed = 8[json_name = "futureproofed"];
(cl:when (cl:logbitp 7 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -24556,11 +24556,11 @@
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'currency))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional .proto.PaymentInfo.PAYMENT_INFO_TXNSTATUS txnStatus = 10[json_name = "txnStatus"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'txn-status)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'txn-status)))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
......@@ -25584,24 +25584,24 @@
;; required .proto.MessageKey key = 1[json_name = "key"];
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'key))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional .proto.Message message = 2[json_name = "message"];
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'message))))
(cl:incf size (cl:+ 1 s (varint:length32 s)))))
(cl:incf size (cl:+ 1 s (varint:length-uint32 s)))))
;; optional uint64 messageTimestamp = 3[json_name = "messageTimestamp"];
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 1 (varint:length64 (cl:slot-value self 'message-timestamp)))))
(cl:+ 1 (varint:length-uint64 (cl:slot-value self 'message-timestamp)))))
;; optional .proto.WebMessageInfo.WEB_MESSAGE_INFO_STATUS status = 4[json_name = "status"];
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'status)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'status)))))
;; optional string participant = 5[json_name = "participant"];
(cl:when (cl:logbitp 4 (cl:slot-value self '%has-bits%))
(cl:incf size 1)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'participant))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bool ignore = 16[json_name = "ignore"];
(cl:when (cl:logbitp 5 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -25618,12 +25618,12 @@
(cl:when (cl:logbitp 8 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'push-name))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bytes mediaCiphertextSha256 = 20[json_name = "mediaCiphertextSha256"];
(cl:when (cl:logbitp 9 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'media-ciphertext-sha256))))
(cl:+ s (varint:length32 s)))))
(cl:+ s (varint:length-uint32 s)))))
;; optional bool multicast = 21[json_name = "multicast"];
(cl:when (cl:logbitp 10 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -25639,7 +25639,7 @@
;; optional .proto.WebMessageInfo.WEB_MESSAGE_INFO_STUBTYPE messageStubType = 24[json_name = "messageStubType"];
(cl:when (cl:logbitp 13 (cl:slot-value self '%has-bits%))
(cl:incf size 2)
(cl:incf size (varint:length64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'message-stub-type)))))
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'message-stub-type)))))
;; optional bool clearMedia = 25[json_name = "clearMedia"];
(cl:when (cl:logbitp 14 (cl:slot-value self '%has-bits%))
(cl:incf size
......@@ -25647,41 +25647,41 @@
;; optional uint32 duration = 27[json_name = "duration"];
(cl:when (cl:logbitp 16 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 2 (varint:length32 (cl:slot-value self 'duration)))))
(cl:+ 2 (varint:length-uint32 (cl:slot-value self 'duration)))))
;; optional .proto.PaymentInfo paymentInfo = 29[json_name = "paymentInfo"];
(cl:when (cl:logbitp 18 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'payment-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.LiveLocationMessage finalLiveLocation = 30[json_name = "finalLiveLocation"];
(cl:when (cl:logbitp 19 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'final-live-location))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional .proto.PaymentInfo quotedPaymentInfo = 31[json_name = "quotedPaymentInfo"];
(cl:when (cl:logbitp 20 (cl:slot-value self '%has-bits%))
(cl:let ((s (pb:octet-size (cl:slot-value self 'quoted-payment-info))))
(cl:incf size (cl:+ 2 s (varint:length32 s)))))
(cl:incf size (cl:+ 2 s (varint:length-uint32 s)))))
;; optional uint64 ephemeralStartTimestamp = 32[json_name = "ephemeralStartTimestamp"];
(cl:when (cl:logbitp 21 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 2 (varint:length64 (cl:slot-value self 'ephemeral-start-timestamp)))))
(cl:+ 2 (varint:length-uint64 (cl:slot-value self 'ephemeral-start-timestamp)))))
;; optional uint32 ephemeralDuration = 33[json_name = "ephemeralDuration"];
(cl:when (cl:logbitp 22 (cl:slot-value self '%has-bits%))
(cl:incf size
(cl:+ 2 (varint:length32 (cl:slot-value self 'ephemeral-duration)))))
(cl:+ 2 (varint:length-uint32 (cl:slot-value self 'ephemeral-duration)))))
;; repeated string messageStubParameters = 26[json_name = "messageStubParameters"];
(cl:let* ((x (cl:slot-value self 'message-stub-parameters))
(length (cl:length x)))
(cl:incf size (cl:* 2 length))
(cl:dotimes (i length)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:aref x i))))
(cl:+ s (varint:length32 s))))))
(cl:+ s (varint:length-uint32 s))))))
;; repeated string labels = 28[json_name = "labels"];
(cl:let* ((x (cl:slot-value self 'labels))
(length (cl:length x)))
(cl:incf size (cl:* 2 length))
(cl:dotimes (i length)
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:aref x i))))
(cl:+ s (varint:length32 s))))))
(cl:+ s (varint:length-uint32 s))))))
(cl:setf (cl:slot-value self 'pb::%cached-size%) size)
size))
 
whatscl.lisp
View file @ 129dd7d3
......@@ -537,6 +537,8 @@ accumulator and close the stream."
(aval :status (car payload))))
((equal opcode "Presence") (on-server-presence conn (car payload)))
((equal opcode "Chat") (on-chat-modified conn (car payload)))
((and (equal opcode "Stream") (equal (car payload) "asleep"))
(wac-emit :stream-asleep conn))
(t (warn "Unhandled server message: ~A" msg))))
(if (> (length tag) 10)
(progn
......