;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (require 'cl-lib)#@69 compiler-macro for inlining `ement-user-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-user-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-user-p (and (memq (type-of cl-x) cl-struct-ement-user-tags) t)) nil] 9 (#$ . 101)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-user-p compiler-macro ement-user-p--cmacro] 4)#@13 (fn CL-X) (defalias 'ement-user-p #[257 "\301!>\205 \302\207" [cl-struct-ement-user-tags type-of t] 3 (#$ . 487)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put ement-user-p side-effect-free error-free pure t define-symbol-prop ement-user cl-deftype-satisfies] 6)#@70 compiler-macro for inlining `ement-user-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-user-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-user-id (progn (or (ement-user-p cl-x) (signal 'wrong-type-argument (list 'ement-user cl-x))) (aref cl-x 1))) nil] 9 (#$ . 802)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-user-id compiler-macro ement-user-id--cmacro] 4)#@58 Access slot "id" of `ement-user' struct CL-X. (fn CL-X) (defalias 'ement-user-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-user-tags type-of signal wrong-type-argument ement-user 1] 5 (#$ . 1238)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-user-id side-effect-free t] 4)#@79 compiler-macro for inlining `ement-user-displayname'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-user-displayname--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-user-displayname (progn (or (ement-user-p cl-x) (signal 'wrong-type-argument (list 'ement-user cl-x))) (aref cl-x 2))) nil] 9 (#$ . 1563)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-user-displayname compiler-macro ement-user-displayname--cmacro] 4)#@67 Access slot "displayname" of `ement-user' struct CL-X. (fn CL-X) (defalias 'ement-user-displayname #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-user-tags type-of signal wrong-type-argument ement-user 2] 5 (#$ . 2045)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-user-displayname side-effect-free t] 4)#@80 compiler-macro for inlining `ement-user-account-data'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-user-account-data--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-user-account-data (progn (or (ement-user-p cl-x) (signal 'wrong-type-argument (list 'ement-user cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2397)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-user-account-data compiler-macro ement-user-account-data--cmacro] 4)#@68 Access slot "account-data" of `ement-user' struct CL-X. (fn CL-X) (defalias 'ement-user-account-data #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-user-tags type-of signal wrong-type-argument ement-user 3] 5 (#$ . 2884)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-user-account-data side-effect-free t] 4)#@73 compiler-macro for inlining `ement-user-color'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-user-color--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-user-color (progn (or (ement-user-p cl-x) (signal 'wrong-type-argument (list 'ement-user cl-x))) (aref cl-x 4))) nil] 9 (#$ . 3239)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-user-color compiler-macro ement-user-color--cmacro] 4)#@100 Access slot "color" of `ement-user' struct CL-X. Color in which to display user's name. (fn CL-X) (defalias 'ement-user-color #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-user-tags type-of signal wrong-type-argument ement-user 4] 5 (#$ . 3692)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-user-color side-effect-free t] 4)#@81 compiler-macro for inlining `ement-user-message-color'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-user-message-color--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-user-message-color (progn (or (ement-user-p cl-x) (signal 'wrong-type-argument (list 'ement-user cl-x))) (aref cl-x 5))) nil] 9 (#$ . 4065)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-user-message-color compiler-macro ement-user-message-color--cmacro] 4)#@112 Access slot "message-color" of `ement-user' struct CL-X. Color in which to display user's messages. (fn CL-X) (defalias 'ement-user-message-color #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-user-tags type-of signal wrong-type-argument ement-user 5] 5 (#$ . 4558)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-user-message-color side-effect-free t] 4)#@76 compiler-macro for inlining `ement-user-username'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-user-username--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-user-username (progn (or (ement-user-p cl-x) (signal 'wrong-type-argument (list 'ement-user cl-x))) (aref cl-x 6))) nil] 9 (#$ . 4959)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-user-username compiler-macro ement-user-username--cmacro] 4)#@99 Access slot "username" of `ement-user' struct CL-X. Username part of user's Matrix ID. (fn CL-X) (defalias 'ement-user-username #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-user-tags type-of signal wrong-type-argument ement-user 6] 5 (#$ . 5426)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-user-username side-effect-free t] 4)#@78 compiler-macro for inlining `ement-user-avatar-url'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-user-avatar-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-user-avatar-url (progn (or (ement-user-p cl-x) (signal 'wrong-type-argument (list 'ement-user cl-x))) (aref cl-x 7))) nil] 9 (#$ . 5804)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-user-avatar-url compiler-macro ement-user-avatar-url--cmacro] 4)#@92 Access slot "avatar-url" of `ement-user' struct CL-X. MXC URL to user's avatar. (fn CL-X) (defalias 'ement-user-avatar-url #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-user-tags type-of signal wrong-type-argument ement-user 7] 5 (#$ . 6281)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-user-avatar-url side-effect-free t] 4)#@74 compiler-macro for inlining `ement-user-avatar'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-user-avatar--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-user-avatar (progn (or (ement-user-p cl-x) (signal 'wrong-type-argument (list 'ement-user cl-x))) (aref cl-x 8))) nil] 9 (#$ . 6656)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-user-avatar compiler-macro ement-user-avatar--cmacro] 4)#@118 Access slot "avatar" of `ement-user' struct CL-X. One-space string with avatar image in display property. (fn CL-X) (defalias 'ement-user-avatar #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-user-tags type-of signal wrong-type-argument ement-user 8] 5 (#$ . 7114)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put ement-user-avatar side-effect-free t defalias copy-ement-user copy-sequence] 4)#@153 compiler-macro for inlining `make-ement-user'. (fn CL-WHOLE &cl-quote &key ID DISPLAYNAME ACCOUNT-DATA COLOR MESSAGE-COLOR USERNAME AVATAR-URL AVATAR) (defalias 'make-ement-user--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\211\203k\211@\311>\203S\211A\204K\312\313@\"\210\211AA\262\2025\314\n>A@\203b\315\262\2025\312\316@\"\210\2025\210\317\320\321\315 \315        & \207" [plist-member :id :displayname :account-data :color :message-color :username :avatar-url :avatar (:id :displayname :account-data :color :message-color :username :avatar-url :avatar :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:id :displayname :account-data :color :message-color :username :avatar-url :avatar)" cl--defsubst-expand (id displayname account-data color message-color username avatar-url avatar) (cl-block make-ement-user (record 'ement-user id displayname account-data color message-color username avatar-url avatar))] 24 (#$ . 7557)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop make-ement-user compiler-macro make-ement-user--cmacro] 4)#@133 Constructor for objects of type `ement-user'. (fn &key ID DISPLAYNAME ACCOUNT-DATA COLOR MESSAGE-COLOR USERNAME AVATAR-URL AVATAR) (defalias 'make-ement-user #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\211\203k\211@\311>\203S\211A\204K\312\313@\"\210\211AA\262\2025\314\n>A@\203b\315\262\2025\312\316@\"\210\2025\210\317\320        & \207" [plist-member :id :displayname :account-data :color :message-color :username :avatar-url :avatar (:id :displayname :account-data :color :message-color :username :avatar-url :avatar :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:id :displayname :account-data :color :message-color :username :avatar-url :avatar)" record ement-user] 19 (#$ . 8767)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-ement-user side-effect-free t cl-struct-define ement-user nil cl-structure-object record ((cl-tag-slot) (id) (displayname) (account-data) (color nil :documentation "Color in which to display user's name.") (message-color nil :documentation "Color in which to display user's messages.") (username nil :documentation "Username part of user's Matrix ID.") (avatar-url nil :documentation "MXC URL to user's avatar.") (avatar nil :documentation "One-space string with avatar image in display property.")) cl-struct-ement-user-tags] 11)#@70 compiler-macro for inlining `ement-event-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-event-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-event-p (and (memq (type-of cl-x) cl-struct-ement-event-tags) t)) nil] 9 (#$ . 10241)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-event-p compiler-macro ement-event-p--cmacro] 4)#@13 (fn CL-X) (defalias 'ement-event-p #[257 "\301!>\205 \302\207" [cl-struct-ement-event-tags type-of t] 3 (#$ . 10635)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put ement-event-p side-effect-free error-free pure t define-symbol-prop ement-event cl-deftype-satisfies] 6)#@71 compiler-macro for inlining `ement-event-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-event-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-event-id (progn (or (ement-event-p cl-x) (signal 'wrong-type-argument (list 'ement-event cl-x))) (aref cl-x 1))) nil] 9 (#$ . 10956)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-event-id compiler-macro ement-event-id--cmacro] 4)#@59 Access slot "id" of `ement-event' struct CL-X. (fn CL-X) (defalias 'ement-event-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-event-tags type-of signal wrong-type-argument ement-event 1] 5 (#$ . 11401)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-event-id side-effect-free t] 4)#@75 compiler-macro for inlining `ement-event-sender'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-event-sender--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-event-sender (progn (or (ement-event-p cl-x) (signal 'wrong-type-argument (list 'ement-event cl-x))) (aref cl-x 2))) nil] 9 (#$ . 11732)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-event-sender compiler-macro ement-event-sender--cmacro] 4)#@63 Access slot "sender" of `ement-event' struct CL-X. (fn CL-X) (defalias 'ement-event-sender #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-event-tags type-of signal wrong-type-argument ement-event 2] 5 (#$ . 12197)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-event-sender side-effect-free t] 4)#@76 compiler-macro for inlining `ement-event-content'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-event-content--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-event-content (progn (or (ement-event-p cl-x) (signal 'wrong-type-argument (list 'ement-event cl-x))) (aref cl-x 3))) nil] 9 (#$ . 12540)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-event-content compiler-macro ement-event-content--cmacro] 4)#@64 Access slot "content" of `ement-event' struct CL-X. (fn CL-X) (defalias 'ement-event-content #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-event-tags type-of signal wrong-type-argument ement-event 3] 5 (#$ . 13010)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-event-content side-effect-free t] 4)#@85 compiler-macro for inlining `ement-event-origin-server-ts'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-event-origin-server-ts--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-event-origin-server-ts (progn (or (ement-event-p cl-x) (signal 'wrong-type-argument (list 'ement-event cl-x))) (aref cl-x 4))) nil] 9 (#$ . 13356)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-event-origin-server-ts compiler-macro ement-event-origin-server-ts--cmacro] 4)#@73 Access slot "origin-server-ts" of `ement-event' struct CL-X. (fn CL-X) (defalias 'ement-event-origin-server-ts #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-event-tags type-of signal wrong-type-argument ement-event 4] 5 (#$ . 13871)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-event-origin-server-ts side-effect-free t] 4)#@73 compiler-macro for inlining `ement-event-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-event-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-event-type (progn (or (ement-event-p cl-x) (signal 'wrong-type-argument (list 'ement-event cl-x))) (aref cl-x 5))) nil] 9 (#$ . 14244)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-event-type compiler-macro ement-event-type--cmacro] 4)#@61 Access slot "type" of `ement-event' struct CL-X. (fn CL-X) (defalias 'ement-event-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-event-tags type-of signal wrong-type-argument ement-event 5] 5 (#$ . 14699)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-event-type side-effect-free t] 4)#@77 compiler-macro for inlining `ement-event-unsigned'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-event-unsigned--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-event-unsigned (progn (or (ement-event-p cl-x) (signal 'wrong-type-argument (list 'ement-event cl-x))) (aref cl-x 6))) nil] 9 (#$ . 15036)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-event-unsigned compiler-macro ement-event-unsigned--cmacro] 4)#@65 Access slot "unsigned" of `ement-event' struct CL-X. (fn CL-X) (defalias 'ement-event-unsigned #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-event-tags type-of signal wrong-type-argument ement-event 6] 5 (#$ . 15511)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-event-unsigned side-effect-free t] 4)#@78 compiler-macro for inlining `ement-event-state-key'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-event-state-key--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-event-state-key (progn (or (ement-event-p cl-x) (signal 'wrong-type-argument (list 'ement-event cl-x))) (aref cl-x 7))) nil] 9 (#$ . 15860)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-event-state-key compiler-macro ement-event-state-key--cmacro] 4)#@66 Access slot "state-key" of `ement-event' struct CL-X. (fn CL-X) (defalias 'ement-event-state-key #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-event-tags type-of signal wrong-type-argument ement-event 7] 5 (#$ . 16340)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-event-state-key side-effect-free t] 4)#@77 compiler-macro for inlining `ement-event-receipts'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-event-receipts--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-event-receipts (progn (or (ement-event-p cl-x) (signal 'wrong-type-argument (list 'ement-event cl-x))) (aref cl-x 8))) nil] 9 (#$ . 16692)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-event-receipts compiler-macro ement-event-receipts--cmacro] 4)#@65 Access slot "receipts" of `ement-event' struct CL-X. (fn CL-X) (defalias 'ement-event-receipts #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-event-tags type-of signal wrong-type-argument ement-event 8] 5 (#$ . 17167)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-event-receipts side-effect-free t] 4)#@74 compiler-macro for inlining `ement-event-local'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-event-local--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-event-local (progn (or (ement-event-p cl-x) (signal 'wrong-type-argument (list 'ement-event cl-x))) (aref cl-x 9))) nil] 9 (#$ . 17516)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-event-local compiler-macro ement-event-local--cmacro] 4)#@62 Access slot "local" of `ement-event' struct CL-X. (fn CL-X) (defalias 'ement-event-local #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-event-tags type-of signal wrong-type-argument ement-event 9] 5 (#$ . 17976)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put ement-event-local side-effect-free t defalias copy-ement-event copy-sequence] 4)#@153 compiler-macro for inlining `make-ement-event'. (fn CL-WHOLE &cl-quote &key ID SENDER CONTENT ORIGIN-SERVER-TS TYPE UNSIGNED STATE-KEY RECEIPTS LOCAL) (defalias 'make-ement-event--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@ \211\203r\211@\312>\203Z\211A\204R\313\314@\"\210\211AA\262\202<\315 >A@\203i\316\262\202<\313\317@\"\210\202<\210\320\321\322\316\316&\207" [plist-member :id :sender :content :origin-server-ts :type :unsigned :state-key :receipts :local (:id :sender :content :origin-server-ts :type :unsigned :state-key :receipts :local :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:id :sender :content :origin-server-ts :type :unsigned :state-key :receipts :local)" cl--defsubst-expand (id sender content origin-server-ts type unsigned state-key receipts local) (cl-block make-ement-event (record 'ement-event id sender content origin-server-ts type unsigned state-key receipts local))] 26 (#$ . 18367)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop make-ement-event compiler-macro make-ement-event--cmacro] 4)#@133 Constructor for objects of type `ement-event'. (fn &key ID SENDER CONTENT ORIGIN-SERVER-TS TYPE UNSIGNED STATE-KEY RECEIPTS LOCAL) (defalias 'make-ement-event #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@ \211\203r\211@\312>\203Z\211A\204R\313\314@\"\210\211AA\262\202<\315 >A@\203i\316\262\202<\313\317@\"\210\202<\210\320\321\n\n\n\n\n\n\n\n\n&\n\207" [plist-member :id :sender :content :origin-server-ts :type :unsigned :state-key :receipts :local (:id :sender :content :origin-server-ts :type :unsigned :state-key :receipts :local :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:id :sender :content :origin-server-ts :type :unsigned :state-key :receipts :local)" record ement-event] 21 (#$ . 19596)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-ement-event side-effect-free t cl-struct-define ement-event nil cl-structure-object record ((cl-tag-slot) (id) (sender) (content) (origin-server-ts) (type) (unsigned) (state-key) (receipts) (local)) cl-struct-ement-event-tags] 11)#@71 compiler-macro for inlining `ement-server-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-server-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-server-p (and (memq (type-of cl-x) cl-struct-ement-server-tags) t)) nil] 9 (#$ . 20798)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-server-p compiler-macro ement-server-p--cmacro] 4)#@13 (fn CL-X) (defalias 'ement-server-p #[257 "\301!>\205 \302\207" [cl-struct-ement-server-tags type-of t] 3 (#$ . 21198)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put ement-server-p side-effect-free error-free pure t define-symbol-prop ement-server cl-deftype-satisfies] 6)#@74 compiler-macro for inlining `ement-server-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-server-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-server-name (progn (or (ement-server-p cl-x) (signal 'wrong-type-argument (list 'ement-server cl-x))) (aref cl-x 1))) nil] 9 (#$ . 21523)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-server-name compiler-macro ement-server-name--cmacro] 4)#@62 Access slot "name" of `ement-server' struct CL-X. (fn CL-X) (defalias 'ement-server-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-server-tags type-of signal wrong-type-argument ement-server 1] 5 (#$ . 21985)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-server-name side-effect-free t] 4)#@80 compiler-macro for inlining `ement-server-uri-prefix'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-server-uri-prefix--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-server-uri-prefix (progn (or (ement-server-p cl-x) (signal 'wrong-type-argument (list 'ement-server cl-x))) (aref cl-x 2))) nil] 9 (#$ . 22327)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-server-uri-prefix compiler-macro ement-server-uri-prefix--cmacro] 4)#@68 Access slot "uri-prefix" of `ement-server' struct CL-X. (fn CL-X) (defalias 'ement-server-uri-prefix #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-server-tags type-of signal wrong-type-argument ement-server 2] 5 (#$ . 22819)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put ement-server-uri-prefix side-effect-free t defalias copy-ement-server copy-sequence] 4)#@96 compiler-macro for inlining `make-ement-server'. (fn CL-WHOLE &cl-quote &key NAME URI-PREFIX) (defalias 'make-ement-server--cmacro #[385 "\300\301\"A@\300\302\"A@\211\203B\211@\303>\203+\211A\204#\304\305@\"\210\211AA\262\202 \306>A@\2039\307\262\202 \304\310@\"\210\202 \210\311\312\313\307\307&\207" [plist-member :name :uri-prefix (:name :uri-prefix :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:name :uri-prefix)" cl--defsubst-expand (name uri-prefix) (cl-block make-ement-server (record 'ement-server name uri-prefix))] 12 (#$ . 23230)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop make-ement-server compiler-macro make-ement-server--cmacro] 4)#@76 Constructor for objects of type `ement-server'. (fn &key NAME URI-PREFIX) (defalias 'make-ement-server #[128 "\300\301\"A@\300\302\"A@\211\203B\211@\303>\203+\211A\204#\304\305@\"\210\211AA\262\202 \306>A@\2039\307\262\202 \304\310@\"\210\202 \210\311\312#\207" [plist-member :name :uri-prefix (:name :uri-prefix :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:name :uri-prefix)" record ement-server] 7 (#$ . 23984)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-ement-server side-effect-free t cl-struct-define ement-server nil cl-structure-object record ((cl-tag-slot) (name) (uri-prefix)) cl-struct-ement-server-tags] 11)#@72 compiler-macro for inlining `ement-session-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-p (and (memq (type-of cl-x) cl-struct-ement-session-tags) t)) nil] 9 (#$ . 24742)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-p compiler-macro ement-session-p--cmacro] 4)#@13 (fn CL-X) (defalias 'ement-session-p #[257 "\301!>\205 \302\207" [cl-struct-ement-session-tags type-of t] 3 (#$ . 25148)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put ement-session-p side-effect-free error-free pure t define-symbol-prop ement-session cl-deftype-satisfies] 6)#@75 compiler-macro for inlining `ement-session-user'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-user--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-user (progn (or (ement-session-p cl-x) (signal 'wrong-type-argument (list 'ement-session cl-x))) (aref cl-x 1))) nil] 9 (#$ . 25477)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-user compiler-macro ement-session-user--cmacro] 4)#@63 Access slot "user" of `ement-session' struct CL-X. (fn CL-X) (defalias 'ement-session-user #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-session-tags type-of signal wrong-type-argument ement-session 1] 5 (#$ . 25946)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-session-user side-effect-free t] 4)#@77 compiler-macro for inlining `ement-session-server'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-server--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-server (progn (or (ement-session-p cl-x) (signal 'wrong-type-argument (list 'ement-session cl-x))) (aref cl-x 2))) nil] 9 (#$ . 26293)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-server compiler-macro ement-session-server--cmacro] 4)#@65 Access slot "server" of `ement-session' struct CL-X. (fn CL-X) (defalias 'ement-session-server #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-session-tags type-of signal wrong-type-argument ement-session 2] 5 (#$ . 26772)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-session-server side-effect-free t] 4)#@76 compiler-macro for inlining `ement-session-token'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-token--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-token (progn (or (ement-session-p cl-x) (signal 'wrong-type-argument (list 'ement-session cl-x))) (aref cl-x 3))) nil] 9 (#$ . 27125)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-token compiler-macro ement-session-token--cmacro] 4)#@64 Access slot "token" of `ement-session' struct CL-X. (fn CL-X) (defalias 'ement-session-token #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-session-tags type-of signal wrong-type-argument ement-session 3] 5 (#$ . 27599)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-session-token side-effect-free t] 4)#@85 compiler-macro for inlining `ement-session-transaction-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-transaction-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-transaction-id (progn (or (ement-session-p cl-x) (signal 'wrong-type-argument (list 'ement-session cl-x))) (aref cl-x 4))) nil] 9 (#$ . 27949)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-transaction-id compiler-macro ement-session-transaction-id--cmacro] 4)#@73 Access slot "transaction-id" of `ement-session' struct CL-X. (fn CL-X) (defalias 'ement-session-transaction-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-session-tags type-of signal wrong-type-argument ement-session 4] 5 (#$ . 28468)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-session-transaction-id side-effect-free t] 4)#@76 compiler-macro for inlining `ement-session-rooms'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-rooms--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-rooms (progn (or (ement-session-p cl-x) (signal 'wrong-type-argument (list 'ement-session cl-x))) (aref cl-x 5))) nil] 9 (#$ . 28845)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-rooms compiler-macro ement-session-rooms--cmacro] 4)#@64 Access slot "rooms" of `ement-session' struct CL-X. (fn CL-X) (defalias 'ement-session-rooms #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-session-tags type-of signal wrong-type-argument ement-session 5] 5 (#$ . 29319)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-session-rooms side-effect-free t] 4)#@81 compiler-macro for inlining `ement-session-next-batch'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-next-batch--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-next-batch (progn (or (ement-session-p cl-x) (signal 'wrong-type-argument (list 'ement-session cl-x))) (aref cl-x 6))) nil] 9 (#$ . 29669)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-next-batch compiler-macro ement-session-next-batch--cmacro] 4)#@69 Access slot "next-batch" of `ement-session' struct CL-X. (fn CL-X) (defalias 'ement-session-next-batch #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-session-tags type-of signal wrong-type-argument ement-session 6] 5 (#$ . 30168)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-session-next-batch side-effect-free t] 4)#@80 compiler-macro for inlining `ement-session-device-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-device-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-device-id (progn (or (ement-session-p cl-x) (signal 'wrong-type-argument (list 'ement-session cl-x))) (aref cl-x 7))) nil] 9 (#$ . 30533)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-device-id compiler-macro ement-session-device-id--cmacro] 4)#@68 Access slot "device-id" of `ement-session' struct CL-X. (fn CL-X) (defalias 'ement-session-device-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-session-tags type-of signal wrong-type-argument ement-session 7] 5 (#$ . 31027)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-session-device-id side-effect-free t] 4)#@98 compiler-macro for inlining `ement-session-initial-device-display-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-initial-device-display-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-initial-device-display-name (progn (or (ement-session-p cl-x) (signal 'wrong-type-argument (list 'ement-session cl-x))) (aref cl-x 8))) nil] 9 (#$ . 31389)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-initial-device-display-name compiler-macro ement-session-initial-device-display-name--cmacro] 4)#@86 Access slot "initial-device-display-name" of `ement-session' struct CL-X. (fn CL-X) (defalias 'ement-session-initial-device-display-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-session-tags type-of signal wrong-type-argument ement-session 8] 5 (#$ . 31973)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-session-initial-device-display-name side-effect-free t] 4)#@83 compiler-macro for inlining `ement-session-has-synced-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-has-synced-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-has-synced-p (progn (or (ement-session-p cl-x) (signal 'wrong-type-argument (list 'ement-session cl-x))) (aref cl-x 9))) nil] 9 (#$ . 32389)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-has-synced-p compiler-macro ement-session-has-synced-p--cmacro] 4)#@71 Access slot "has-synced-p" of `ement-session' struct CL-X. (fn CL-X) (defalias 'ement-session-has-synced-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-session-tags type-of signal wrong-type-argument ement-session 9] 5 (#$ . 32898)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-session-has-synced-p side-effect-free t] 4)#@83 compiler-macro for inlining `ement-session-account-data'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-account-data--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-account-data (progn (or (ement-session-p cl-x) (signal 'wrong-type-argument (list 'ement-session cl-x))) (aref cl-x 10))) nil] 9 (#$ . 33269)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-account-data compiler-macro ement-session-account-data--cmacro] 4)#@71 Access slot "account-data" of `ement-session' struct CL-X. (fn CL-X) (defalias 'ement-session-account-data #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-session-tags type-of signal wrong-type-argument ement-session 10] 5 (#$ . 33779)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-session-account-data side-effect-free t] 4)#@77 compiler-macro for inlining `ement-session-events'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-session-events--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-session-events (progn (or (ement-session-p cl-x) (signal 'wrong-type-argument (list 'ement-session cl-x))) (aref cl-x 11))) nil] 9 (#$ . 34151)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-session-events compiler-macro ement-session-events--cmacro] 4)#@65 Access slot "events" of `ement-session' struct CL-X. (fn CL-X) (defalias 'ement-session-events #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-session-tags type-of signal wrong-type-argument ement-session 11] 5 (#$ . 34631)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put ement-session-events side-effect-free t defalias copy-ement-session copy-sequence] 4)#@202 compiler-macro for inlining `make-ement-session'. (fn CL-WHOLE &cl-quote &key USER SERVER TOKEN TRANSACTION-ID ROOMS NEXT-BATCH DEVICE-ID INITIAL-DEVICE-DISPLAY-NAME HAS-SYNCED-P ACCOUNT-DATA EVENTS) (defalias 'make-ement-session--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@ \211\203\200\211@\314>\203h\211A\204`\315\316@\"\210\211AA\262\202J\317 >A@\203w\320\262\202J\315\321@\"\210\202J\210\322\323\324\320\320&\207" [plist-member :user :server :token :transaction-id :rooms :next-batch :device-id :initial-device-display-name :has-synced-p :account-data :events (:user :server :token :transaction-id :rooms :next-batch :device-id :initial-device-display-name :has-synced-p :account-data :events :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:user :server :token :transaction-id :rooms :next-batch :device-id :initial-device-display-name :has-synced-p :account-data :events)" cl--defsubst-expand (user server token transaction-id rooms next-batch device-id initial-device-display-name has-synced-p account-data events) (cl-block make-ement-session (record 'ement-session user server token transaction-id rooms next-batch device-id initial-device-display-name has-synced-p account-data events))] 30 (#$ . 35038)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop make-ement-session compiler-macro make-ement-session--cmacro] 4)#@182 Constructor for objects of type `ement-session'. (fn &key USER SERVER TOKEN TRANSACTION-ID ROOMS NEXT-BATCH DEVICE-ID INITIAL-DEVICE-DISPLAY-NAME HAS-SYNCED-P ACCOUNT-DATA EVENTS) (defalias 'make-ement-session #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@ \211\203\200\211@\314>\203h\211A\204`\315\316@\"\210\211AA\262\202J\317 >A@\203w\320\262\202J\315\321@\"\210\202J\210\322\323\f\f\f\f\f\f\f\f\f\f\f&\f\207" [plist-member :user :server :token :transaction-id :rooms :next-batch :device-id :initial-device-display-name :has-synced-p :account-data :events (:user :server :token :transaction-id :rooms :next-batch :device-id :initial-device-display-name :has-synced-p :account-data :events :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:user :server :token :transaction-id :rooms :next-batch :device-id :initial-device-display-name :has-synced-p :account-data :events)" record ement-session] 25 (#$ . 36603)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-ement-session side-effect-free t cl-struct-define ement-session nil cl-structure-object record ((cl-tag-slot) (user) (server) (token) (transaction-id) (rooms) (next-batch) (device-id) (initial-device-display-name) (has-synced-p) (account-data) (events)) cl-struct-ement-session-tags] 11)#@69 compiler-macro for inlining `ement-room-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-p (and (memq (type-of cl-x) cl-struct-ement-room-tags) t)) nil] 9 (#$ . 38100)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-p compiler-macro ement-room-p--cmacro] 4)#@13 (fn CL-X) (defalias 'ement-room-p #[257 "\301!>\205 \302\207" [cl-struct-ement-room-tags type-of t] 3 (#$ . 38488)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put ement-room-p side-effect-free error-free pure t define-symbol-prop ement-room cl-deftype-satisfies] 6)#@70 compiler-macro for inlining `ement-room-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-id (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 1))) nil] 9 (#$ . 38805)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-id compiler-macro ement-room-id--cmacro] 4)#@58 Access slot "id" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 1] 5 (#$ . 39243)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-id side-effect-free t] 4)#@80 compiler-macro for inlining `ement-room-display-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-display-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-display-name (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 2))) nil] 9 (#$ . 39569)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-display-name compiler-macro ement-room-display-name--cmacro] 4)#@68 Access slot "display-name" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-display-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 2] 5 (#$ . 40057)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-display-name side-effect-free t] 4)#@78 compiler-macro for inlining `ement-room-prev-batch'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-prev-batch--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-prev-batch (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 3))) nil] 9 (#$ . 40413)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-prev-batch compiler-macro ement-room-prev-batch--cmacro] 4)#@66 Access slot "prev-batch" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-prev-batch #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 3] 5 (#$ . 40891)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-prev-batch side-effect-free t] 4)#@75 compiler-macro for inlining `ement-room-summary'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-summary--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-summary (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 4))) nil] 9 (#$ . 41241)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-summary compiler-macro ement-room-summary--cmacro] 4)#@63 Access slot "summary" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-summary #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 4] 5 (#$ . 41704)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-summary side-effect-free t] 4)#@73 compiler-macro for inlining `ement-room-state'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-state--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-state (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 5))) nil] 9 (#$ . 42045)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-state compiler-macro ement-room-state--cmacro] 4)#@61 Access slot "state" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-state #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 5] 5 (#$ . 42498)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-state side-effect-free t] 4)#@76 compiler-macro for inlining `ement-room-timeline'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-timeline--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-timeline (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 6))) nil] 9 (#$ . 42833)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-timeline compiler-macro ement-room-timeline--cmacro] 4)#@64 Access slot "timeline" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-timeline #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 6] 5 (#$ . 43301)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-timeline side-effect-free t] 4)#@77 compiler-macro for inlining `ement-room-ephemeral'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-ephemeral--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-ephemeral (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 7))) nil] 9 (#$ . 43645)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-ephemeral compiler-macro ement-room-ephemeral--cmacro] 4)#@65 Access slot "ephemeral" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-ephemeral #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 7] 5 (#$ . 44118)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-ephemeral side-effect-free t] 4)#@80 compiler-macro for inlining `ement-room-account-data'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-account-data--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-account-data (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 8))) nil] 9 (#$ . 44465)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-account-data compiler-macro ement-room-account-data--cmacro] 4)#@68 Access slot "account-data" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-account-data #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 8] 5 (#$ . 44953)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-account-data side-effect-free t] 4)#@88 compiler-macro for inlining `ement-room-unread-notifications'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-unread-notifications--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-unread-notifications (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 9))) nil] 9 (#$ . 45309)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-unread-notifications compiler-macro ement-room-unread-notifications--cmacro] 4)#@76 Access slot "unread-notifications" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-unread-notifications #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 9] 5 (#$ . 45837)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-unread-notifications side-effect-free t] 4)#@77 compiler-macro for inlining `ement-room-latest-ts'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-latest-ts--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-latest-ts (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 10))) nil] 9 (#$ . 46217)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-latest-ts compiler-macro ement-room-latest-ts--cmacro] 4)#@65 Access slot "latest-ts" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-latest-ts #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 10] 5 (#$ . 46691)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-latest-ts side-effect-free t] 4)#@73 compiler-macro for inlining `ement-room-topic'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-topic--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-topic (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 11))) nil] 9 (#$ . 47039)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-topic compiler-macro ement-room-topic--cmacro] 4)#@61 Access slot "topic" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-topic #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 11] 5 (#$ . 47493)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-topic side-effect-free t] 4)#@83 compiler-macro for inlining `ement-room-canonical-alias'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-canonical-alias--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-canonical-alias (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 12))) nil] 9 (#$ . 47829)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-canonical-alias compiler-macro ement-room-canonical-alias--cmacro] 4)#@71 Access slot "canonical-alias" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-canonical-alias #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 12] 5 (#$ . 48333)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-canonical-alias side-effect-free t] 4)#@74 compiler-macro for inlining `ement-room-avatar'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-avatar--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-avatar (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 13))) nil] 9 (#$ . 48699)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-avatar compiler-macro ement-room-avatar--cmacro] 4)#@62 Access slot "avatar" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-avatar #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 13] 5 (#$ . 49158)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-avatar side-effect-free t] 4)#@74 compiler-macro for inlining `ement-room-status'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-status--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-status (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 14))) nil] 9 (#$ . 49497)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-status compiler-macro ement-room-status--cmacro] 4)#@62 Access slot "status" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-status #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 14] 5 (#$ . 49956)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-status side-effect-free t] 4)#@72 compiler-macro for inlining `ement-room-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-type (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 15))) nil] 9 (#$ . 50295)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-type compiler-macro ement-room-type--cmacro] 4)#@60 Access slot "type" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 15] 5 (#$ . 50744)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-type side-effect-free t] 4)#@80 compiler-macro for inlining `ement-room-invite-state'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-invite-state--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-invite-state (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 16))) nil] 9 (#$ . 51077)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-invite-state compiler-macro ement-room-invite-state--cmacro] 4)#@68 Access slot "invite-state" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-invite-state #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 16] 5 (#$ . 51566)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-invite-state side-effect-free t] 4)#@75 compiler-macro for inlining `ement-room-members'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-members--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-members (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 17))) nil] 9 (#$ . 51923)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-members compiler-macro ement-room-members--cmacro] 4)#@115 Access slot "members" of `ement-room' struct CL-X. Hash table mapping joined user IDs to user structs. (fn CL-X) (defalias 'ement-room-members #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 17] 5 (#$ . 52388)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-members side-effect-free t] 4)#@73 compiler-macro for inlining `ement-room-local'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-local--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-local (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 18))) nil] 9 (#$ . 52782)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-local compiler-macro ement-room-local--cmacro] 4)#@61 Access slot "local" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-local #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 18] 5 (#$ . 53236)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-local side-effect-free t] 4)#@76 compiler-macro for inlining `ement-room-receipts'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-receipts--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-receipts (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 19))) nil] 9 (#$ . 53572)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-receipts compiler-macro ement-room-receipts--cmacro] 4)#@64 Access slot "receipts" of `ement-room' struct CL-X. (fn CL-X) (defalias 'ement-room-receipts #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 19] 5 (#$ . 54041)]) (byte-code "\300\301\302\303#\300\207" [function-put ement-room-receipts side-effect-free t] 4)#@80 compiler-macro for inlining `ement-room-displaynames'. (fn CL-WHOLE-ARG CL-X) (defalias 'ement-room-displaynames--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ement-room-displaynames (progn (or (ement-room-p cl-x) (signal 'wrong-type-argument (list 'ement-room cl-x))) (aref cl-x 20))) nil] 9 (#$ . 54386)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop ement-room-displaynames compiler-macro ement-room-displaynames--cmacro] 4)#@128 Access slot "displaynames" of `ement-room' struct CL-X. Hash table mapping users to their displayname in this room. (fn CL-X) (defalias 'ement-room-displaynames #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ement-room-tags type-of signal wrong-type-argument ement-room 20] 5 (#$ . 54876)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put ement-room-displaynames side-effect-free t defalias copy-ement-room copy-sequence] 4)#@272 compiler-macro for inlining `make-ement-room'. (fn CL-WHOLE &cl-quote &key ID DISPLAY-NAME PREV-BATCH SUMMARY STATE TIMELINE EPHEMERAL ACCOUNT-DATA UNREAD-NOTIFICATIONS LATEST-TS TOPIC CANONICAL-ALIAS AVATAR STATUS TYPE INVITE-STATE MEMBERS LOCAL RECEIPTS DISPLAYNAMES) (defalias 'make-ement-room--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"\206t\322A@\300\323\"A@\300\324\"\206\206\325A@\300\326\"\206\221\327A@\211\203\313\211@\330>\203\263\211A\204\253\331\332@\"\210\211AA\262\202\225\333>A@\203\302\334\262\202\225\331\335@\"\210\202\225\210\336\337\340\334\334&\207" [plist-member :id :display-name :prev-batch :summary :state :timeline :ephemeral :account-data :unread-notifications :latest-ts :topic :canonical-alias :avatar :status :type :invite-state :members (nil (make-hash-table :test #'equal)) :local :receipts (nil (make-hash-table :test #'equal)) :displaynames (nil (make-hash-table)) (:id :display-name :prev-batch :summary :state :timeline :ephemeral :account-data :unread-notifications :latest-ts :topic :canonical-alias :avatar :status :type :invite-state :members :local :receipts :displaynames :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:id :display-name :prev-batch :summary :state :timeline :ephemeral :account-data :unread-notifications :latest-ts :topic :canonical-alias :avatar :status :type :invite-state :members :local :receipts :displaynames)" cl--defsubst-expand (id display-name prev-batch summary state timeline ephemeral account-data unread-notifications latest-ts topic canonical-alias avatar status type invite-state members local receipts displaynames) (cl-block make-ement-room (record 'ement-room id display-name prev-batch summary state timeline ephemeral account-data unread-notifications latest-ts topic canonical-alias avatar status type invite-state members local receipts displaynames))] 48 (#$ . 55343)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop make-ement-room compiler-macro make-ement-room--cmacro] 4)#@252 Constructor for objects of type `ement-room'. (fn &key ID DISPLAY-NAME PREV-BATCH SUMMARY STATE TIMELINE EPHEMERAL ACCOUNT-DATA UNREAD-NOTIFICATIONS LATEST-TS TOPIC CANONICAL-ALIAS AVATAR STATUS TYPE INVITE-STATE MEMBERS LOCAL RECEIPTS DISPLAYNAMES) (defalias 'make-ement-room #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"\206y\322\323\324\325\"DA@\300\326\"A@\300\327\"\206\220\322\323\324\325\"DA@\300\330\"\206\236\322\323 DA@\211\203\330\211@\331>\203\300\211A\204\270\332\333@\"\210\211AA\262\202\242\334>A@\203\317\322\262\202\242\332\335@\"\210\202\242\210\336\337&\207" [plist-member :id :display-name :prev-batch :summary :state :timeline :ephemeral :account-data :unread-notifications :latest-ts :topic :canonical-alias :avatar :status :type :invite-state :members nil make-hash-table :test equal :local :receipts :displaynames (:id :display-name :prev-batch :summary :state :timeline :ephemeral :account-data :unread-notifications :latest-ts :topic :canonical-alias :avatar :status :type :invite-state :members :local :receipts :displaynames :allow-other-keys) error "Missing argument for %s" :allow-other-keys "Keyword argument %s not one of (:id :display-name :prev-batch :summary :state :timeline :ephemeral :account-data :unread-notifications :latest-ts :topic :canonical-alias :avatar :status :type :invite-state :members :local :receipts :displaynames)" record ement-room] 43 (#$ . 57654)]) (byte-code "\300\301\302\303\304\302\305\306\301\307& \210\310\311!\207" [cl-struct-define ement-room nil cl-structure-object record ((cl-tag-slot) (id) (display-name) (prev-batch) (summary) (state) (timeline) (ephemeral) (account-data) (unread-notifications) (latest-ts) (topic) (canonical-alias) (avatar) (status) (type) (invite-state) (members (make-hash-table :test #'equal) :documentation "Hash table mapping joined user IDs to user structs.") (local) (receipts (make-hash-table :test #'equal)) (displaynames (make-hash-table) :documentation "Hash table mapping users to their displayname in this room.")) cl-struct-ement-room-tags t provide ement-structs] 10)