;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(require 'map)
#@73 compiler-macro for inlining `libbcel-entity-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-entity-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-entity-p (and (memq (type-of cl-x) cl-struct-libbcel-entity-tags) t)) nil] 9 (#$ . 102)])
(put 'libbcel-entity-p 'compiler-macro 'libbcel-entity-p--cmacro)
#@13 

(fn CL-X)
(defalias 'libbcel-entity-p #[257 "\301!>\205	 \302\207" [cl-struct-libbcel-entity-tags type-of t] 3 (#$ . 459)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libbcel-entity-p side-effect-free error-free put libbcel-entity cl-deftype-satisfies] 5)
#@74 compiler-macro for inlining `libbcel-entity-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-entity-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-entity-id (progn (or (libbcel-entity-p cl-x) (signal 'wrong-type-argument (list 'libbcel-entity cl-x))) (aref cl-x 1))) nil] 9 (#$ . 748)])
(put 'libbcel-entity-id 'compiler-macro 'libbcel-entity-id--cmacro)
#@62 Access slot "id" of `libbcel-entity' struct CL-X.

(fn CL-X)
(defalias 'libbcel-entity-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-entity-tags type-of signal wrong-type-argument libbcel-entity 1] 5 (#$ . 1159)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-entity-id side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-entity-id] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@76 compiler-macro for inlining `libbcel-entity-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-entity-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-entity-name (progn (or (libbcel-entity-p cl-x) (signal 'wrong-type-argument (list 'libbcel-entity cl-x))) (aref cl-x 2))) nil] 9 (#$ . 1637)])
(put 'libbcel-entity-name 'compiler-macro 'libbcel-entity-name--cmacro)
#@64 Access slot "name" of `libbcel-entity' struct CL-X.

(fn CL-X)
(defalias 'libbcel-entity-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-entity-tags type-of signal wrong-type-argument libbcel-entity 2] 5 (#$ . 2059)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-entity-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-entity-name] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@75 compiler-macro for inlining `libbcel-entity-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-entity-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-entity-url (progn (or (libbcel-entity-p cl-x) (signal 'wrong-type-argument (list 'libbcel-entity cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2545)])
(put 'libbcel-entity-url 'compiler-macro 'libbcel-entity-url--cmacro)
#@63 Access slot "url" of `libbcel-entity' struct CL-X.

(fn CL-X)
(defalias 'libbcel-entity-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-entity-tags type-of signal wrong-type-argument libbcel-entity 3] 5 (#$ . 2962)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-entity-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-entity-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@79 compiler-macro for inlining `libbcel-entity-app-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-entity-app-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-entity-app-url (progn (or (libbcel-entity-p cl-x) (signal 'wrong-type-argument (list 'libbcel-entity cl-x))) (aref cl-x 4))) nil] 9 (#$ . 3444)])
(put 'libbcel-entity-app-url 'compiler-macro 'libbcel-entity-app-url--cmacro)
#@67 Access slot "app-url" of `libbcel-entity' struct CL-X.

(fn CL-X)
(defalias 'libbcel-entity-app-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-entity-tags type-of signal wrong-type-argument libbcel-entity 4] 5 (#$ . 3881)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-entity-app-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-entity-app-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `libbcel-entity-alist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-entity-alist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-entity-alist (progn (or (libbcel-entity-p cl-x) (signal 'wrong-type-argument (list 'libbcel-entity cl-x))) (aref cl-x 5))) nil] 9 (#$ . 4379)])
(put 'libbcel-entity-alist 'compiler-macro 'libbcel-entity-alist--cmacro)
#@65 Access slot "alist" of `libbcel-entity' struct CL-X.

(fn CL-X)
(defalias 'libbcel-entity-alist #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-entity-tags type-of signal wrong-type-argument libbcel-entity 5] 5 (#$ . 4806)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-entity-alist side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-entity-alist] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@86 compiler-macro for inlining `libbcel-entity-comments-count'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-entity-comments-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-entity-comments-count (progn (or (libbcel-entity-p cl-x) (signal 'wrong-type-argument (list 'libbcel-entity cl-x))) (aref cl-x 6))) nil] 9 (#$ . 5296)])
(put 'libbcel-entity-comments-count 'compiler-macro 'libbcel-entity-comments-count--cmacro)
#@74 Access slot "comments-count" of `libbcel-entity' struct CL-X.

(fn CL-X)
(defalias 'libbcel-entity-comments-count #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-entity-tags type-of signal wrong-type-argument libbcel-entity 6] 5 (#$ . 5768)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-entity-comments-count side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-entity-comments-count] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@84 compiler-macro for inlining `libbcel-entity-comments-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-entity-comments-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-entity-comments-url (progn (or (libbcel-entity-p cl-x) (signal 'wrong-type-argument (list 'libbcel-entity cl-x))) (aref cl-x 7))) nil] 9 (#$ . 6294)])
(put 'libbcel-entity-comments-url 'compiler-macro 'libbcel-entity-comments-url--cmacro)
#@72 Access slot "comments-url" of `libbcel-entity' struct CL-X.

(fn CL-X)
(defalias 'libbcel-entity-comments-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-entity-tags type-of signal wrong-type-argument libbcel-entity 7] 5 (#$ . 6756)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-entity-comments-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-entity-comments-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@78 compiler-macro for inlining `libbcel-entity-parent'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-entity-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-entity-parent (progn (or (libbcel-entity-p cl-x) (signal 'wrong-type-argument (list 'libbcel-entity cl-x))) (aref cl-x 8))) nil] 9 (#$ . 7274)])
(put 'libbcel-entity-parent 'compiler-macro 'libbcel-entity-parent--cmacro)
#@66 Access slot "parent" of `libbcel-entity' struct CL-X.

(fn CL-X)
(defalias 'libbcel-entity-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-entity-tags type-of signal wrong-type-argument libbcel-entity 8] 5 (#$ . 7706)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put libbcel-entity-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-entity-parent] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-libbcel-entity copy-sequence] 5)
#@146 compiler-macro for inlining `libbcel--entity-create'.

(fn CL-WHOLE &cl-quote &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT)
(defalias 'libbcel--entity-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\211\203h \211@\313>\203P \211AA\262\202= \314\n>A@\203_ \315\262\202= \316\317@\"\210\202= \210\320\321\322\315\315&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent (:id :name :url :app-url :alist :comments-count :comments-url :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent)" cl--defsubst-expand (id name url app-url alist comments-count comments-url parent) (cl-block libbcel--entity-create (record 'libbcel-entity id name url app-url alist comments-count comments-url parent))] 24 (#$ . 8254)])
(put 'libbcel--entity-create 'compiler-macro 'libbcel--entity-create--cmacro)
#@123 Constructor for objects of type `libbcel-entity'.

(fn &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT)
(defalias 'libbcel--entity-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\211\203h \211@\313>\203P \211AA\262\202= \314\n>A@\203_ \315\262\202= \316\317@\"\210\202= \210\320\321								&	\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent (:id :name :url :app-url :alist :comments-count :comments-url :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent)" record libbcel-entity] 19 (#$ . 9349)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put libbcel--entity-create side-effect-free t cl-struct-define libbcel-entity nil cl-structure-object record ((cl-tag-slot) (id nil :read-only t) (name nil :read-only t) (url nil :read-only t) (app-url nil :read-only t :alist-key-name app_url) (alist nil :read-only t) (comments-count 0 :read-only t :alist-key-name comments_count) (comments-url 0 :read-only t :alist-key-name comments_url) (parent nil :read-only t)) cl-struct-libbcel-entity-tags] 11)
#@74 compiler-macro for inlining `libbcel-project-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-project-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-project-p (and (memq (type-of cl-x) cl-struct-libbcel-project-tags) t)) nil] 9 (#$ . 10679)])
(put 'libbcel-project-p 'compiler-macro 'libbcel-project-p--cmacro)
#@13 

(fn CL-X)
(defalias 'libbcel-project-p #[257 "\301!>\205	 \302\207" [cl-struct-libbcel-project-tags type-of t] 3 (#$ . 11044)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libbcel-project-p side-effect-free error-free put libbcel-project cl-deftype-satisfies] 5)
#@75 compiler-macro for inlining `libbcel-project-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-project-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-project-id (progn (or (libbcel-project-p cl-x) (signal 'wrong-type-argument (list 'libbcel-project cl-x))) (aref cl-x 1))) nil] 9 (#$ . 11339)])
(put 'libbcel-project-id 'compiler-macro 'libbcel-project-id--cmacro)
#@63 Access slot "id" of `libbcel-project' struct CL-X.

(fn CL-X)
(defalias 'libbcel-project-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-project-tags type-of signal wrong-type-argument libbcel-project 1] 5 (#$ . 11759)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-project-id side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-project-id] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `libbcel-project-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-project-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-project-name (progn (or (libbcel-project-p cl-x) (signal 'wrong-type-argument (list 'libbcel-project cl-x))) (aref cl-x 2))) nil] 9 (#$ . 12244)])
(put 'libbcel-project-name 'compiler-macro 'libbcel-project-name--cmacro)
#@65 Access slot "name" of `libbcel-project' struct CL-X.

(fn CL-X)
(defalias 'libbcel-project-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-project-tags type-of signal wrong-type-argument libbcel-project 2] 5 (#$ . 12674)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-project-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-project-name] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@76 compiler-macro for inlining `libbcel-project-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-project-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-project-url (progn (or (libbcel-project-p cl-x) (signal 'wrong-type-argument (list 'libbcel-project cl-x))) (aref cl-x 3))) nil] 9 (#$ . 13167)])
(put 'libbcel-project-url 'compiler-macro 'libbcel-project-url--cmacro)
#@64 Access slot "url" of `libbcel-project' struct CL-X.

(fn CL-X)
(defalias 'libbcel-project-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-project-tags type-of signal wrong-type-argument libbcel-project 3] 5 (#$ . 13592)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-project-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-project-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@80 compiler-macro for inlining `libbcel-project-app-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-project-app-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-project-app-url (progn (or (libbcel-project-p cl-x) (signal 'wrong-type-argument (list 'libbcel-project cl-x))) (aref cl-x 4))) nil] 9 (#$ . 14081)])
(put 'libbcel-project-app-url 'compiler-macro 'libbcel-project-app-url--cmacro)
#@68 Access slot "app-url" of `libbcel-project' struct CL-X.

(fn CL-X)
(defalias 'libbcel-project-app-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-project-tags type-of signal wrong-type-argument libbcel-project 4] 5 (#$ . 14526)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-project-app-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-project-app-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@78 compiler-macro for inlining `libbcel-project-alist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-project-alist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-project-alist (progn (or (libbcel-project-p cl-x) (signal 'wrong-type-argument (list 'libbcel-project cl-x))) (aref cl-x 5))) nil] 9 (#$ . 15031)])
(put 'libbcel-project-alist 'compiler-macro 'libbcel-project-alist--cmacro)
#@66 Access slot "alist" of `libbcel-project' struct CL-X.

(fn CL-X)
(defalias 'libbcel-project-alist #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-project-tags type-of signal wrong-type-argument libbcel-project 5] 5 (#$ . 15466)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-project-alist side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-project-alist] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@87 compiler-macro for inlining `libbcel-project-comments-count'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-project-comments-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-project-comments-count (progn (or (libbcel-project-p cl-x) (signal 'wrong-type-argument (list 'libbcel-project cl-x))) (aref cl-x 6))) nil] 9 (#$ . 15963)])
(put 'libbcel-project-comments-count 'compiler-macro 'libbcel-project-comments-count--cmacro)
#@75 Access slot "comments-count" of `libbcel-project' struct CL-X.

(fn CL-X)
(defalias 'libbcel-project-comments-count #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-project-tags type-of signal wrong-type-argument libbcel-project 6] 5 (#$ . 16443)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-project-comments-count side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-project-comments-count] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@85 compiler-macro for inlining `libbcel-project-comments-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-project-comments-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-project-comments-url (progn (or (libbcel-project-p cl-x) (signal 'wrong-type-argument (list 'libbcel-project cl-x))) (aref cl-x 7))) nil] 9 (#$ . 16976)])
(put 'libbcel-project-comments-url 'compiler-macro 'libbcel-project-comments-url--cmacro)
#@73 Access slot "comments-url" of `libbcel-project' struct CL-X.

(fn CL-X)
(defalias 'libbcel-project-comments-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-project-tags type-of signal wrong-type-argument libbcel-project 7] 5 (#$ . 17446)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-project-comments-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-project-comments-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@79 compiler-macro for inlining `libbcel-project-parent'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-project-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-project-parent (progn (or (libbcel-project-p cl-x) (signal 'wrong-type-argument (list 'libbcel-project cl-x))) (aref cl-x 8))) nil] 9 (#$ . 17971)])
(put 'libbcel-project-parent 'compiler-macro 'libbcel-project-parent--cmacro)
#@67 Access slot "parent" of `libbcel-project' struct CL-X.

(fn CL-X)
(defalias 'libbcel-project-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-project-tags type-of signal wrong-type-argument libbcel-project 8] 5 (#$ . 18411)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-project-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-project-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@84 compiler-macro for inlining `libbcel-project-description'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-project-description--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-project-description (progn (or (libbcel-project-p cl-x) (signal 'wrong-type-argument (list 'libbcel-project cl-x))) (aref cl-x 9))) nil] 9 (#$ . 18912)])
(put 'libbcel-project-description 'compiler-macro 'libbcel-project-description--cmacro)
#@72 Access slot "description" of `libbcel-project' struct CL-X.

(fn CL-X)
(defalias 'libbcel-project-description #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-project-tags type-of signal wrong-type-argument libbcel-project 9] 5 (#$ . 19377)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-project-description side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-project-description] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@78 compiler-macro for inlining `libbcel-project-tools'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-project-tools--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-project-tools (progn (or (libbcel-project-p cl-x) (signal 'wrong-type-argument (list 'libbcel-project cl-x))) (aref cl-x 10))) nil] 9 (#$ . 19898)])
(put 'libbcel-project-tools 'compiler-macro 'libbcel-project-tools--cmacro)
#@66 Access slot "tools" of `libbcel-project' struct CL-X.

(fn CL-X)
(defalias 'libbcel-project-tools #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-project-tags type-of signal wrong-type-argument libbcel-project 10] 5 (#$ . 20334)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put libbcel-project-tools side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-project-tools] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-libbcel-project copy-sequence] 5)
#@164 compiler-macro for inlining `libbcel-project-create'.

(fn CL-WHOLE &cl-quote &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT DESCRIPTION TOOLS)
(defalias 'libbcel-project-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\n\211\203v \211@\315>\203^ \211AA\262\202K \316\f>A@\203m \317\262\202K \320\321@\"\210\202K \210\322\323\324\317\317&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :description :tools (:id :name :url :app-url :alist :comments-count :comments-url :parent :description :tools :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :description :tools)" cl--defsubst-expand (id name url app-url alist comments-count comments-url parent description tools) (cl-block libbcel-project-create (record 'libbcel-project id name url app-url alist comments-count comments-url parent description tools))] 28 (#$ . 20887)])
(put 'libbcel-project-create 'compiler-macro 'libbcel-project-create--cmacro)
#@142 Constructor for objects of type `libbcel-project'.

(fn &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT DESCRIPTION TOOLS)
(defalias 'libbcel-project-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\n\211\203v \211@\315>\203^ \211AA\262\202K \316\f>A@\203m \317\262\202K \320\321@\"\210\202K \210\322\323&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :description :tools (:id :name :url :app-url :alist :comments-count :comments-url :parent :description :tools :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :description :tools)" record libbcel-project] 23 (#$ . 22132)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put libbcel-project-create side-effect-free t cl-struct-define libbcel-project nil libbcel-entity record ((cl-tag-slot) (id nil :read-only t) (name nil :read-only t) (url nil :read-only t) (app-url nil :read-only t :alist-key-name app_url) (alist nil :read-only t) (comments-count 0 :read-only t :alist-key-name comments_count) (comments-url 0 :read-only t :alist-key-name comments_url) (parent nil :read-only t) (description nil :read-only t) (tools nil :read-only t :alist-key-name dock)) cl-struct-libbcel-project-tags] 11)
#@71 compiler-macro for inlining `libbcel-tool-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-tool-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-tool-p (and (memq (type-of cl-x) cl-struct-libbcel-tool-tags) t)) nil] 9 (#$ . 23651)])
(put 'libbcel-tool-p 'compiler-macro 'libbcel-tool-p--cmacro)
#@13 

(fn CL-X)
(defalias 'libbcel-tool-p #[257 "\301!>\205	 \302\207" [cl-struct-libbcel-tool-tags type-of t] 3 (#$ . 23998)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libbcel-tool-p side-effect-free error-free put libbcel-tool cl-deftype-satisfies] 5)
#@72 compiler-macro for inlining `libbcel-tool-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-tool-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-tool-id (progn (or (libbcel-tool-p cl-x) (signal 'wrong-type-argument (list 'libbcel-tool cl-x))) (aref cl-x 1))) nil] 9 (#$ . 24281)])
(put 'libbcel-tool-id 'compiler-macro 'libbcel-tool-id--cmacro)
#@60 Access slot "id" of `libbcel-tool' struct CL-X.

(fn CL-X)
(defalias 'libbcel-tool-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-tool-tags type-of signal wrong-type-argument libbcel-tool 1] 5 (#$ . 24680)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-tool-id side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-tool-id] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@74 compiler-macro for inlining `libbcel-tool-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-tool-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-tool-name (progn (or (libbcel-tool-p cl-x) (signal 'wrong-type-argument (list 'libbcel-tool cl-x))) (aref cl-x 2))) nil] 9 (#$ . 25147)])
(put 'libbcel-tool-name 'compiler-macro 'libbcel-tool-name--cmacro)
#@62 Access slot "name" of `libbcel-tool' struct CL-X.

(fn CL-X)
(defalias 'libbcel-tool-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-tool-tags type-of signal wrong-type-argument libbcel-tool 2] 5 (#$ . 25556)])
(byte-code "\300\301\302\303#\300\207" [function-put libbcel-tool-name side-effect-free t] 4)
#@73 compiler-macro for inlining `libbcel-tool-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-tool-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-tool-url (progn (or (libbcel-tool-p cl-x) (signal 'wrong-type-argument (list 'libbcel-tool cl-x))) (aref cl-x 3))) nil] 9 (#$ . 25899)])
(put 'libbcel-tool-url 'compiler-macro 'libbcel-tool-url--cmacro)
#@61 Access slot "url" of `libbcel-tool' struct CL-X.

(fn CL-X)
(defalias 'libbcel-tool-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-tool-tags type-of signal wrong-type-argument libbcel-tool 3] 5 (#$ . 26303)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-tool-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-tool-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `libbcel-tool-app-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-tool-app-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-tool-app-url (progn (or (libbcel-tool-p cl-x) (signal 'wrong-type-argument (list 'libbcel-tool cl-x))) (aref cl-x 4))) nil] 9 (#$ . 26774)])
(put 'libbcel-tool-app-url 'compiler-macro 'libbcel-tool-app-url--cmacro)
#@65 Access slot "app-url" of `libbcel-tool' struct CL-X.

(fn CL-X)
(defalias 'libbcel-tool-app-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-tool-tags type-of signal wrong-type-argument libbcel-tool 4] 5 (#$ . 27198)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-tool-app-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-tool-app-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@75 compiler-macro for inlining `libbcel-tool-alist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-tool-alist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-tool-alist (progn (or (libbcel-tool-p cl-x) (signal 'wrong-type-argument (list 'libbcel-tool cl-x))) (aref cl-x 5))) nil] 9 (#$ . 27685)])
(put 'libbcel-tool-alist 'compiler-macro 'libbcel-tool-alist--cmacro)
#@63 Access slot "alist" of `libbcel-tool' struct CL-X.

(fn CL-X)
(defalias 'libbcel-tool-alist #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-tool-tags type-of signal wrong-type-argument libbcel-tool 5] 5 (#$ . 28099)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-tool-alist side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-tool-alist] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@84 compiler-macro for inlining `libbcel-tool-comments-count'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-tool-comments-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-tool-comments-count (progn (or (libbcel-tool-p cl-x) (signal 'wrong-type-argument (list 'libbcel-tool cl-x))) (aref cl-x 6))) nil] 9 (#$ . 28578)])
(put 'libbcel-tool-comments-count 'compiler-macro 'libbcel-tool-comments-count--cmacro)
#@72 Access slot "comments-count" of `libbcel-tool' struct CL-X.

(fn CL-X)
(defalias 'libbcel-tool-comments-count #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-tool-tags type-of signal wrong-type-argument libbcel-tool 6] 5 (#$ . 29037)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-tool-comments-count side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-tool-comments-count] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@82 compiler-macro for inlining `libbcel-tool-comments-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-tool-comments-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-tool-comments-url (progn (or (libbcel-tool-p cl-x) (signal 'wrong-type-argument (list 'libbcel-tool cl-x))) (aref cl-x 7))) nil] 9 (#$ . 29552)])
(put 'libbcel-tool-comments-url 'compiler-macro 'libbcel-tool-comments-url--cmacro)
#@70 Access slot "comments-url" of `libbcel-tool' struct CL-X.

(fn CL-X)
(defalias 'libbcel-tool-comments-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-tool-tags type-of signal wrong-type-argument libbcel-tool 7] 5 (#$ . 30001)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-tool-comments-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-tool-comments-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@76 compiler-macro for inlining `libbcel-tool-parent'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-tool-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-tool-parent (progn (or (libbcel-tool-p cl-x) (signal 'wrong-type-argument (list 'libbcel-tool cl-x))) (aref cl-x 8))) nil] 9 (#$ . 30508)])
(put 'libbcel-tool-parent 'compiler-macro 'libbcel-tool-parent--cmacro)
#@64 Access slot "parent" of `libbcel-tool' struct CL-X.

(fn CL-X)
(defalias 'libbcel-tool-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-tool-tags type-of signal wrong-type-argument libbcel-tool 8] 5 (#$ . 30927)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-tool-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-tool-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `libbcel-tool-enabled'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-tool-enabled--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-tool-enabled (progn (or (libbcel-tool-p cl-x) (signal 'wrong-type-argument (list 'libbcel-tool cl-x))) (aref cl-x 9))) nil] 9 (#$ . 31410)])
(put 'libbcel-tool-enabled 'compiler-macro 'libbcel-tool-enabled--cmacro)
#@65 Access slot "enabled" of `libbcel-tool' struct CL-X.

(fn CL-X)
(defalias 'libbcel-tool-enabled #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-tool-tags type-of signal wrong-type-argument libbcel-tool 9] 5 (#$ . 31834)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-tool-enabled side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-tool-enabled] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@82 compiler-macro for inlining `libbcel-tool-children-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-tool-children-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-tool-children-url (progn (or (libbcel-tool-p cl-x) (signal 'wrong-type-argument (list 'libbcel-tool cl-x))) (aref cl-x 10))) nil] 9 (#$ . 32321)])
(put 'libbcel-tool-children-url 'compiler-macro 'libbcel-tool-children-url--cmacro)
#@70 Access slot "children-url" of `libbcel-tool' struct CL-X.

(fn CL-X)
(defalias 'libbcel-tool-children-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-tool-tags type-of signal wrong-type-argument libbcel-tool 10] 5 (#$ . 32771)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put libbcel-tool-children-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-tool-children-url] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-libbcel-tool copy-sequence] 5)
#@164 compiler-macro for inlining `libbcel-tool-create'.

(fn CL-WHOLE &cl-quote &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT ENABLED CHILDREN-URL)
(defalias 'libbcel-tool-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\n\211\203v \211@\315>\203^ \211AA\262\202K \316\f>A@\203m \317\262\202K \320\321@\"\210\202K \210\322\323\324\317\317&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :enabled :children-url (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url)" cl--defsubst-expand (id name url app-url alist comments-count comments-url parent enabled children-url) (cl-block libbcel-tool-create (record 'libbcel-tool id name url app-url alist comments-count comments-url parent enabled children-url))] 28 (#$ . 33331)])
(put 'libbcel-tool-create 'compiler-macro 'libbcel-tool-create--cmacro)
#@142 Constructor for objects of type `libbcel-tool'.

(fn &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT ENABLED CHILDREN-URL)
(defalias 'libbcel-tool-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\n\211\203v \211@\315>\203^ \211AA\262\202K \316\f>A@\203m \317\262\202K \320\321@\"\210\202K \210\322\323&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :enabled :children-url (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url)" record libbcel-tool] 23 (#$ . 34576)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put libbcel-tool-create side-effect-free t cl-struct-define libbcel-tool nil libbcel-entity record ((cl-tag-slot) (id nil :read-only t) (name nil :alist-key-name title) (url nil :read-only t) (app-url nil :read-only t :alist-key-name app_url) (alist nil :read-only t) (comments-count 0 :read-only t :alist-key-name comments_count) (comments-url 0 :read-only t :alist-key-name comments_url) (parent nil :read-only t) (enabled nil :read-only t :alist-transformer (lambda (data) (not (eq data :json-false)))) (children-url nil :read-only t)) cl-struct-libbcel-tool-tags] 11)
#@80 compiler-macro for inlining `libbcel-message-board-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-board-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-board-p (and (memq (type-of cl-x) cl-struct-libbcel-message-board-tags) t)) nil] 9 (#$ . 36143)])
(put 'libbcel-message-board-p 'compiler-macro 'libbcel-message-board-p--cmacro)
#@13 

(fn CL-X)
(defalias 'libbcel-message-board-p #[257 "\301!>\205	 \302\207" [cl-struct-libbcel-message-board-tags type-of t] 3 (#$ . 36544)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libbcel-message-board-p side-effect-free error-free put libbcel-message-board cl-deftype-satisfies] 5)
#@81 compiler-macro for inlining `libbcel-message-board-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-board-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-board-id (progn (or (libbcel-message-board-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message-board cl-x))) (aref cl-x 1))) nil] 9 (#$ . 36863)])
(put 'libbcel-message-board-id 'compiler-macro 'libbcel-message-board-id--cmacro)
#@69 Access slot "id" of `libbcel-message-board' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-board-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-board-tags type-of signal wrong-type-argument libbcel-message-board 1] 5 (#$ . 37325)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-board-id side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-board-id] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@83 compiler-macro for inlining `libbcel-message-board-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-board-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-board-name (progn (or (libbcel-message-board-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message-board cl-x))) (aref cl-x 2))) nil] 9 (#$ . 37846)])
(put 'libbcel-message-board-name 'compiler-macro 'libbcel-message-board-name--cmacro)
#@71 Access slot "name" of `libbcel-message-board' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-board-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-board-tags type-of signal wrong-type-argument libbcel-message-board 2] 5 (#$ . 38318)])
(byte-code "\300\301\302\303#\300\207" [function-put libbcel-message-board-name side-effect-free t] 4)
#@82 compiler-macro for inlining `libbcel-message-board-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-board-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-board-url (progn (or (libbcel-message-board-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message-board cl-x))) (aref cl-x 3))) nil] 9 (#$ . 38706)])
(put 'libbcel-message-board-url 'compiler-macro 'libbcel-message-board-url--cmacro)
#@70 Access slot "url" of `libbcel-message-board' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-board-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-board-tags type-of signal wrong-type-argument libbcel-message-board 3] 5 (#$ . 39173)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-board-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-board-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@86 compiler-macro for inlining `libbcel-message-board-app-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-board-app-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-board-app-url (progn (or (libbcel-message-board-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message-board cl-x))) (aref cl-x 4))) nil] 9 (#$ . 39698)])
(put 'libbcel-message-board-app-url 'compiler-macro 'libbcel-message-board-app-url--cmacro)
#@74 Access slot "app-url" of `libbcel-message-board' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-board-app-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-board-tags type-of signal wrong-type-argument libbcel-message-board 4] 5 (#$ . 40185)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-board-app-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-board-app-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@84 compiler-macro for inlining `libbcel-message-board-alist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-board-alist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-board-alist (progn (or (libbcel-message-board-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message-board cl-x))) (aref cl-x 5))) nil] 9 (#$ . 40726)])
(put 'libbcel-message-board-alist 'compiler-macro 'libbcel-message-board-alist--cmacro)
#@72 Access slot "alist" of `libbcel-message-board' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-board-alist #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-board-tags type-of signal wrong-type-argument libbcel-message-board 5] 5 (#$ . 41203)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-board-alist side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-board-alist] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@93 compiler-macro for inlining `libbcel-message-board-comments-count'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-board-comments-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-board-comments-count (progn (or (libbcel-message-board-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message-board cl-x))) (aref cl-x 6))) nil] 9 (#$ . 41736)])
(put 'libbcel-message-board-comments-count 'compiler-macro 'libbcel-message-board-comments-count--cmacro)
#@81 Access slot "comments-count" of `libbcel-message-board' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-board-comments-count #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-board-tags type-of signal wrong-type-argument libbcel-message-board 6] 5 (#$ . 42258)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-board-comments-count side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-board-comments-count] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@91 compiler-macro for inlining `libbcel-message-board-comments-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-board-comments-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-board-comments-url (progn (or (libbcel-message-board-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message-board cl-x))) (aref cl-x 7))) nil] 9 (#$ . 42827)])
(put 'libbcel-message-board-comments-url 'compiler-macro 'libbcel-message-board-comments-url--cmacro)
#@79 Access slot "comments-url" of `libbcel-message-board' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-board-comments-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-board-tags type-of signal wrong-type-argument libbcel-message-board 7] 5 (#$ . 43339)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-board-comments-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-board-comments-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@85 compiler-macro for inlining `libbcel-message-board-parent'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-board-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-board-parent (progn (or (libbcel-message-board-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message-board cl-x))) (aref cl-x 8))) nil] 9 (#$ . 43900)])
(put 'libbcel-message-board-parent 'compiler-macro 'libbcel-message-board-parent--cmacro)
#@73 Access slot "parent" of `libbcel-message-board' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-board-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-board-tags type-of signal wrong-type-argument libbcel-message-board 8] 5 (#$ . 44382)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-board-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-board-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@86 compiler-macro for inlining `libbcel-message-board-enabled'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-board-enabled--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-board-enabled (progn (or (libbcel-message-board-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message-board cl-x))) (aref cl-x 9))) nil] 9 (#$ . 44919)])
(put 'libbcel-message-board-enabled 'compiler-macro 'libbcel-message-board-enabled--cmacro)
#@74 Access slot "enabled" of `libbcel-message-board' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-board-enabled #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-board-tags type-of signal wrong-type-argument libbcel-message-board 9] 5 (#$ . 45406)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-board-enabled side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-board-enabled] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@91 compiler-macro for inlining `libbcel-message-board-children-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-board-children-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-board-children-url (progn (or (libbcel-message-board-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message-board cl-x))) (aref cl-x 10))) nil] 9 (#$ . 45947)])
(put 'libbcel-message-board-children-url 'compiler-macro 'libbcel-message-board-children-url--cmacro)
#@79 Access slot "children-url" of `libbcel-message-board' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-board-children-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-board-tags type-of signal wrong-type-argument libbcel-message-board 10] 5 (#$ . 46460)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put libbcel-message-board-children-url side-effect-free t defalias copy-libbcel-message-board copy-sequence] 4)
#@173 compiler-macro for inlining `libbcel-message-board-create'.

(fn CL-WHOLE &cl-quote &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT ENABLED CHILDREN-URL)
(defalias 'libbcel-message-board-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\n\211\203v \211@\315>\203^ \211AA\262\202K \316\f>A@\203m \317\262\202K \320\321@\"\210\202K \210\322\323\324\317\317&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :enabled :children-url (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url)" cl--defsubst-expand (id name url app-url alist comments-count comments-url parent enabled children-url) (cl-block libbcel-message-board-create (record 'libbcel-message-board id name url app-url alist comments-count comments-url parent enabled children-url))] 28 (#$ . 46934)])
(put 'libbcel-message-board-create 'compiler-macro 'libbcel-message-board-create--cmacro)
#@151 Constructor for objects of type `libbcel-message-board'.

(fn &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT ENABLED CHILDREN-URL)
(defalias 'libbcel-message-board-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\n\211\203v \211@\315>\203^ \211AA\262\202K \316\f>A@\203m \317\262\202K \320\321@\"\210\202K \210\322\323&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :enabled :children-url (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url)" record libbcel-message-board] 23 (#$ . 48233)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put libbcel-message-board-create side-effect-free t cl-struct-define libbcel-message-board nil libbcel-tool record ((cl-tag-slot) (id nil :read-only t) (name nil :alist-key-name title) (url nil :read-only t) (app-url nil :read-only t :alist-key-name app_url) (alist nil :read-only t) (comments-count 0 :read-only t :alist-key-name comments_count) (comments-url 0 :read-only t :alist-key-name comments_url) (parent nil :read-only t) (enabled nil :read-only t :alist-transformer (lambda (data) (not (eq data :json-false)))) (children-url nil :alist-key-name messages_url)) cl-struct-libbcel-message-board-tags] 11)
#@74 compiler-macro for inlining `libbcel-todoset-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todoset-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todoset-p (and (memq (type-of cl-x) cl-struct-libbcel-todoset-tags) t)) nil] 9 (#$ . 49868)])
(put 'libbcel-todoset-p 'compiler-macro 'libbcel-todoset-p--cmacro)
#@13 

(fn CL-X)
(defalias 'libbcel-todoset-p #[257 "\301!>\205	 \302\207" [cl-struct-libbcel-todoset-tags type-of t] 3 (#$ . 50233)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libbcel-todoset-p side-effect-free error-free put libbcel-todoset cl-deftype-satisfies] 5)
#@75 compiler-macro for inlining `libbcel-todoset-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todoset-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todoset-id (progn (or (libbcel-todoset-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todoset cl-x))) (aref cl-x 1))) nil] 9 (#$ . 50528)])
(put 'libbcel-todoset-id 'compiler-macro 'libbcel-todoset-id--cmacro)
#@63 Access slot "id" of `libbcel-todoset' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todoset-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todoset-tags type-of signal wrong-type-argument libbcel-todoset 1] 5 (#$ . 50948)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todoset-id side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todoset-id] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `libbcel-todoset-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todoset-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todoset-name (progn (or (libbcel-todoset-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todoset cl-x))) (aref cl-x 2))) nil] 9 (#$ . 51433)])
(put 'libbcel-todoset-name 'compiler-macro 'libbcel-todoset-name--cmacro)
#@65 Access slot "name" of `libbcel-todoset' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todoset-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todoset-tags type-of signal wrong-type-argument libbcel-todoset 2] 5 (#$ . 51863)])
(byte-code "\300\301\302\303#\300\207" [function-put libbcel-todoset-name side-effect-free t] 4)
#@76 compiler-macro for inlining `libbcel-todoset-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todoset-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todoset-url (progn (or (libbcel-todoset-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todoset cl-x))) (aref cl-x 3))) nil] 9 (#$ . 52221)])
(put 'libbcel-todoset-url 'compiler-macro 'libbcel-todoset-url--cmacro)
#@64 Access slot "url" of `libbcel-todoset' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todoset-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todoset-tags type-of signal wrong-type-argument libbcel-todoset 3] 5 (#$ . 52646)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todoset-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todoset-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@80 compiler-macro for inlining `libbcel-todoset-app-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todoset-app-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todoset-app-url (progn (or (libbcel-todoset-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todoset cl-x))) (aref cl-x 4))) nil] 9 (#$ . 53135)])
(put 'libbcel-todoset-app-url 'compiler-macro 'libbcel-todoset-app-url--cmacro)
#@68 Access slot "app-url" of `libbcel-todoset' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todoset-app-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todoset-tags type-of signal wrong-type-argument libbcel-todoset 4] 5 (#$ . 53580)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todoset-app-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todoset-app-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@78 compiler-macro for inlining `libbcel-todoset-alist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todoset-alist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todoset-alist (progn (or (libbcel-todoset-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todoset cl-x))) (aref cl-x 5))) nil] 9 (#$ . 54085)])
(put 'libbcel-todoset-alist 'compiler-macro 'libbcel-todoset-alist--cmacro)
#@66 Access slot "alist" of `libbcel-todoset' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todoset-alist #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todoset-tags type-of signal wrong-type-argument libbcel-todoset 5] 5 (#$ . 54520)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todoset-alist side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todoset-alist] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@87 compiler-macro for inlining `libbcel-todoset-comments-count'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todoset-comments-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todoset-comments-count (progn (or (libbcel-todoset-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todoset cl-x))) (aref cl-x 6))) nil] 9 (#$ . 55017)])
(put 'libbcel-todoset-comments-count 'compiler-macro 'libbcel-todoset-comments-count--cmacro)
#@75 Access slot "comments-count" of `libbcel-todoset' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todoset-comments-count #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todoset-tags type-of signal wrong-type-argument libbcel-todoset 6] 5 (#$ . 55497)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todoset-comments-count side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todoset-comments-count] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@85 compiler-macro for inlining `libbcel-todoset-comments-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todoset-comments-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todoset-comments-url (progn (or (libbcel-todoset-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todoset cl-x))) (aref cl-x 7))) nil] 9 (#$ . 56030)])
(put 'libbcel-todoset-comments-url 'compiler-macro 'libbcel-todoset-comments-url--cmacro)
#@73 Access slot "comments-url" of `libbcel-todoset' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todoset-comments-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todoset-tags type-of signal wrong-type-argument libbcel-todoset 7] 5 (#$ . 56500)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todoset-comments-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todoset-comments-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@79 compiler-macro for inlining `libbcel-todoset-parent'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todoset-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todoset-parent (progn (or (libbcel-todoset-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todoset cl-x))) (aref cl-x 8))) nil] 9 (#$ . 57025)])
(put 'libbcel-todoset-parent 'compiler-macro 'libbcel-todoset-parent--cmacro)
#@67 Access slot "parent" of `libbcel-todoset' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todoset-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todoset-tags type-of signal wrong-type-argument libbcel-todoset 8] 5 (#$ . 57465)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todoset-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todoset-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@80 compiler-macro for inlining `libbcel-todoset-enabled'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todoset-enabled--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todoset-enabled (progn (or (libbcel-todoset-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todoset cl-x))) (aref cl-x 9))) nil] 9 (#$ . 57966)])
(put 'libbcel-todoset-enabled 'compiler-macro 'libbcel-todoset-enabled--cmacro)
#@68 Access slot "enabled" of `libbcel-todoset' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todoset-enabled #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todoset-tags type-of signal wrong-type-argument libbcel-todoset 9] 5 (#$ . 58411)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todoset-enabled side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todoset-enabled] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@85 compiler-macro for inlining `libbcel-todoset-children-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todoset-children-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todoset-children-url (progn (or (libbcel-todoset-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todoset cl-x))) (aref cl-x 10))) nil] 9 (#$ . 58916)])
(put 'libbcel-todoset-children-url 'compiler-macro 'libbcel-todoset-children-url--cmacro)
#@73 Access slot "children-url" of `libbcel-todoset' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todoset-children-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todoset-tags type-of signal wrong-type-argument libbcel-todoset 10] 5 (#$ . 59387)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put libbcel-todoset-children-url side-effect-free t defalias copy-libbcel-todoset copy-sequence] 4)
#@167 compiler-macro for inlining `libbcel-todoset-create'.

(fn CL-WHOLE &cl-quote &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT ENABLED CHILDREN-URL)
(defalias 'libbcel-todoset-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\n\211\203v \211@\315>\203^ \211AA\262\202K \316\f>A@\203m \317\262\202K \320\321@\"\210\202K \210\322\323\324\317\317&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :enabled :children-url (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url)" cl--defsubst-expand (id name url app-url alist comments-count comments-url parent enabled children-url) (cl-block libbcel-todoset-create (record 'libbcel-todoset id name url app-url alist comments-count comments-url parent enabled children-url))] 28 (#$ . 59825)])
(put 'libbcel-todoset-create 'compiler-macro 'libbcel-todoset-create--cmacro)
#@145 Constructor for objects of type `libbcel-todoset'.

(fn &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT ENABLED CHILDREN-URL)
(defalias 'libbcel-todoset-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\n\211\203v \211@\315>\203^ \211AA\262\202K \316\f>A@\203m \317\262\202K \320\321@\"\210\202K \210\322\323&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :enabled :children-url (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :enabled :children-url)" record libbcel-todoset] 23 (#$ . 61088)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put libbcel-todoset-create side-effect-free t cl-struct-define libbcel-todoset nil libbcel-tool record ((cl-tag-slot) (id nil :read-only t) (name nil :alist-key-name title) (url nil :read-only t) (app-url nil :read-only t :alist-key-name app_url) (alist nil :read-only t) (comments-count 0 :read-only t :alist-key-name comments_count) (comments-url 0 :read-only t :alist-key-name comments_url) (parent nil :read-only t) (enabled nil :read-only t :alist-transformer (lambda (data) (not (eq data :json-false)))) (children-url nil :alist-key-name todolists_url)) cl-struct-libbcel-todoset-tags] 11)
#@74 compiler-macro for inlining `libbcel-message-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-p (and (memq (type-of cl-x) cl-struct-libbcel-message-tags) t)) nil] 9 (#$ . 62688)])
(put 'libbcel-message-p 'compiler-macro 'libbcel-message-p--cmacro)
#@13 

(fn CL-X)
(defalias 'libbcel-message-p #[257 "\301!>\205	 \302\207" [cl-struct-libbcel-message-tags type-of t] 3 (#$ . 63053)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libbcel-message-p side-effect-free error-free put libbcel-message cl-deftype-satisfies] 5)
#@75 compiler-macro for inlining `libbcel-message-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-id (progn (or (libbcel-message-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message cl-x))) (aref cl-x 1))) nil] 9 (#$ . 63348)])
(put 'libbcel-message-id 'compiler-macro 'libbcel-message-id--cmacro)
#@63 Access slot "id" of `libbcel-message' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-tags type-of signal wrong-type-argument libbcel-message 1] 5 (#$ . 63768)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-id side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-id] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `libbcel-message-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-name (progn (or (libbcel-message-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message cl-x))) (aref cl-x 2))) nil] 9 (#$ . 64253)])
(put 'libbcel-message-name 'compiler-macro 'libbcel-message-name--cmacro)
#@65 Access slot "name" of `libbcel-message' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-tags type-of signal wrong-type-argument libbcel-message 2] 5 (#$ . 64683)])
(byte-code "\300\301\302\303#\300\207" [function-put libbcel-message-name side-effect-free t] 4)
#@76 compiler-macro for inlining `libbcel-message-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-url (progn (or (libbcel-message-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message cl-x))) (aref cl-x 3))) nil] 9 (#$ . 65041)])
(put 'libbcel-message-url 'compiler-macro 'libbcel-message-url--cmacro)
#@64 Access slot "url" of `libbcel-message' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-tags type-of signal wrong-type-argument libbcel-message 3] 5 (#$ . 65466)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@80 compiler-macro for inlining `libbcel-message-app-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-app-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-app-url (progn (or (libbcel-message-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message cl-x))) (aref cl-x 4))) nil] 9 (#$ . 65955)])
(put 'libbcel-message-app-url 'compiler-macro 'libbcel-message-app-url--cmacro)
#@68 Access slot "app-url" of `libbcel-message' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-app-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-tags type-of signal wrong-type-argument libbcel-message 4] 5 (#$ . 66400)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-app-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-app-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@78 compiler-macro for inlining `libbcel-message-alist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-alist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-alist (progn (or (libbcel-message-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message cl-x))) (aref cl-x 5))) nil] 9 (#$ . 66905)])
(put 'libbcel-message-alist 'compiler-macro 'libbcel-message-alist--cmacro)
#@66 Access slot "alist" of `libbcel-message' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-alist #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-tags type-of signal wrong-type-argument libbcel-message 5] 5 (#$ . 67340)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-alist side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-alist] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@87 compiler-macro for inlining `libbcel-message-comments-count'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-comments-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-comments-count (progn (or (libbcel-message-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message cl-x))) (aref cl-x 6))) nil] 9 (#$ . 67837)])
(put 'libbcel-message-comments-count 'compiler-macro 'libbcel-message-comments-count--cmacro)
#@75 Access slot "comments-count" of `libbcel-message' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-comments-count #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-tags type-of signal wrong-type-argument libbcel-message 6] 5 (#$ . 68317)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-comments-count side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-comments-count] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@85 compiler-macro for inlining `libbcel-message-comments-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-comments-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-comments-url (progn (or (libbcel-message-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message cl-x))) (aref cl-x 7))) nil] 9 (#$ . 68850)])
(put 'libbcel-message-comments-url 'compiler-macro 'libbcel-message-comments-url--cmacro)
#@73 Access slot "comments-url" of `libbcel-message' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-comments-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-tags type-of signal wrong-type-argument libbcel-message 7] 5 (#$ . 69320)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-comments-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-comments-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@79 compiler-macro for inlining `libbcel-message-parent'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-parent (progn (or (libbcel-message-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message cl-x))) (aref cl-x 8))) nil] 9 (#$ . 69845)])
(put 'libbcel-message-parent 'compiler-macro 'libbcel-message-parent--cmacro)
#@67 Access slot "parent" of `libbcel-message' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-tags type-of signal wrong-type-argument libbcel-message 8] 5 (#$ . 70285)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-message-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@80 compiler-macro for inlining `libbcel-message-content'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-message-content--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-message-content (progn (or (libbcel-message-p cl-x) (signal 'wrong-type-argument (list 'libbcel-message cl-x))) (aref cl-x 9))) nil] 9 (#$ . 70786)])
(put 'libbcel-message-content 'compiler-macro 'libbcel-message-content--cmacro)
#@68 Access slot "content" of `libbcel-message' struct CL-X.

(fn CL-X)
(defalias 'libbcel-message-content #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-message-tags type-of signal wrong-type-argument libbcel-message 9] 5 (#$ . 71231)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put libbcel-message-content side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-message-content] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-libbcel-message copy-sequence] 5)
#@154 compiler-macro for inlining `libbcel-message-create'.

(fn CL-WHOLE &cl-quote &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT CONTENT)
(defalias 'libbcel-message-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@	\211\203o \211@\314>\203W \211AA\262\202D \315>A@\203f \316\262\202D \317\320@\"\210\202D \210\321\322\323\316\316&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :content (:id :name :url :app-url :alist :comments-count :comments-url :parent :content :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :content)" cl--defsubst-expand (id name url app-url alist comments-count comments-url parent content) (cl-block libbcel-message-create (record 'libbcel-message id name url app-url alist comments-count comments-url parent content))] 26 (#$ . 71791)])
(put 'libbcel-message-create 'compiler-macro 'libbcel-message-create--cmacro)
#@132 Constructor for objects of type `libbcel-message'.

(fn &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT CONTENT)
(defalias 'libbcel-message-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@	\211\203o \211@\314>\203W \211AA\262\202D \315>A@\203f \316\262\202D \317\320@\"\210\202D \210\321\322\n\n\n\n\n\n\n\n\n&\n\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :content (:id :name :url :app-url :alist :comments-count :comments-url :parent :content :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :content)" record libbcel-message] 21 (#$ . 72954)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put libbcel-message-create side-effect-free t cl-struct-define libbcel-message nil libbcel-entity record ((cl-tag-slot) (id nil :read-only t) (name nil :alist-key-name subject) (url nil :read-only t) (app-url nil :read-only t :alist-key-name app_url) (alist nil :read-only t) (comments-count 0 :read-only t :alist-key-name comments_count) (comments-url 0 :read-only t :alist-key-name comments_url) (parent nil :read-only t) (content nil :read-only t)) cl-struct-libbcel-message-tags] 11)
#@75 compiler-macro for inlining `libbcel-todolist-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todolist-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todolist-p (and (memq (type-of cl-x) cl-struct-libbcel-todolist-tags) t)) nil] 9 (#$ . 74382)])
(put 'libbcel-todolist-p 'compiler-macro 'libbcel-todolist-p--cmacro)
#@13 

(fn CL-X)
(defalias 'libbcel-todolist-p #[257 "\301!>\205	 \302\207" [cl-struct-libbcel-todolist-tags type-of t] 3 (#$ . 74753)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libbcel-todolist-p side-effect-free error-free put libbcel-todolist cl-deftype-satisfies] 5)
#@76 compiler-macro for inlining `libbcel-todolist-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todolist-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todolist-id (progn (or (libbcel-todolist-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todolist cl-x))) (aref cl-x 1))) nil] 9 (#$ . 75052)])
(put 'libbcel-todolist-id 'compiler-macro 'libbcel-todolist-id--cmacro)
#@64 Access slot "id" of `libbcel-todolist' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todolist-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todolist-tags type-of signal wrong-type-argument libbcel-todolist 1] 5 (#$ . 75479)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todolist-id side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todolist-id] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@78 compiler-macro for inlining `libbcel-todolist-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todolist-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todolist-name (progn (or (libbcel-todolist-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todolist cl-x))) (aref cl-x 2))) nil] 9 (#$ . 75970)])
(put 'libbcel-todolist-name 'compiler-macro 'libbcel-todolist-name--cmacro)
#@66 Access slot "name" of `libbcel-todolist' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todolist-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todolist-tags type-of signal wrong-type-argument libbcel-todolist 2] 5 (#$ . 76407)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todolist-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todolist-name] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `libbcel-todolist-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todolist-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todolist-url (progn (or (libbcel-todolist-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todolist cl-x))) (aref cl-x 3))) nil] 9 (#$ . 76906)])
(put 'libbcel-todolist-url 'compiler-macro 'libbcel-todolist-url--cmacro)
#@65 Access slot "url" of `libbcel-todolist' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todolist-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todolist-tags type-of signal wrong-type-argument libbcel-todolist 3] 5 (#$ . 77338)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todolist-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todolist-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@81 compiler-macro for inlining `libbcel-todolist-app-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todolist-app-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todolist-app-url (progn (or (libbcel-todolist-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todolist cl-x))) (aref cl-x 4))) nil] 9 (#$ . 77833)])
(put 'libbcel-todolist-app-url 'compiler-macro 'libbcel-todolist-app-url--cmacro)
#@69 Access slot "app-url" of `libbcel-todolist' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todolist-app-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todolist-tags type-of signal wrong-type-argument libbcel-todolist 4] 5 (#$ . 78285)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todolist-app-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todolist-app-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@79 compiler-macro for inlining `libbcel-todolist-alist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todolist-alist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todolist-alist (progn (or (libbcel-todolist-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todolist cl-x))) (aref cl-x 5))) nil] 9 (#$ . 78796)])
(put 'libbcel-todolist-alist 'compiler-macro 'libbcel-todolist-alist--cmacro)
#@67 Access slot "alist" of `libbcel-todolist' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todolist-alist #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todolist-tags type-of signal wrong-type-argument libbcel-todolist 5] 5 (#$ . 79238)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todolist-alist side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todolist-alist] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@88 compiler-macro for inlining `libbcel-todolist-comments-count'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todolist-comments-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todolist-comments-count (progn (or (libbcel-todolist-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todolist cl-x))) (aref cl-x 6))) nil] 9 (#$ . 79741)])
(put 'libbcel-todolist-comments-count 'compiler-macro 'libbcel-todolist-comments-count--cmacro)
#@76 Access slot "comments-count" of `libbcel-todolist' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todolist-comments-count #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todolist-tags type-of signal wrong-type-argument libbcel-todolist 6] 5 (#$ . 80228)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todolist-comments-count side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todolist-comments-count] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@86 compiler-macro for inlining `libbcel-todolist-comments-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todolist-comments-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todolist-comments-url (progn (or (libbcel-todolist-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todolist cl-x))) (aref cl-x 7))) nil] 9 (#$ . 80767)])
(put 'libbcel-todolist-comments-url 'compiler-macro 'libbcel-todolist-comments-url--cmacro)
#@74 Access slot "comments-url" of `libbcel-todolist' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todolist-comments-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todolist-tags type-of signal wrong-type-argument libbcel-todolist 7] 5 (#$ . 81244)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todolist-comments-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todolist-comments-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@80 compiler-macro for inlining `libbcel-todolist-parent'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todolist-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todolist-parent (progn (or (libbcel-todolist-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todolist cl-x))) (aref cl-x 8))) nil] 9 (#$ . 81775)])
(put 'libbcel-todolist-parent 'compiler-macro 'libbcel-todolist-parent--cmacro)
#@68 Access slot "parent" of `libbcel-todolist' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todolist-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todolist-tags type-of signal wrong-type-argument libbcel-todolist 8] 5 (#$ . 82222)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todolist-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todolist-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@83 compiler-macro for inlining `libbcel-todolist-todos-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todolist-todos-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todolist-todos-url (progn (or (libbcel-todolist-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todolist cl-x))) (aref cl-x 9))) nil] 9 (#$ . 82729)])
(put 'libbcel-todolist-todos-url 'compiler-macro 'libbcel-todolist-todos-url--cmacro)
#@71 Access slot "todos-url" of `libbcel-todolist' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todolist-todos-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todolist-tags type-of signal wrong-type-argument libbcel-todolist 9] 5 (#$ . 83191)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put libbcel-todolist-todos-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todolist-todos-url] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-libbcel-todolist copy-sequence] 5)
#@157 compiler-macro for inlining `libbcel-todolist-create'.

(fn CL-WHOLE &cl-quote &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT TODOS-URL)
(defalias 'libbcel-todolist-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@	\211\203o \211@\314>\203W \211AA\262\202D \315>A@\203f \316\262\202D \317\320@\"\210\202D \210\321\322\323\316\316&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :todos-url (:id :name :url :app-url :alist :comments-count :comments-url :parent :todos-url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :todos-url)" cl--defsubst-expand (id name url app-url alist comments-count comments-url parent todos-url) (cl-block libbcel-todolist-create (record 'libbcel-todolist id name url app-url alist comments-count comments-url parent todos-url))] 26 (#$ . 83766)])
(put 'libbcel-todolist-create 'compiler-macro 'libbcel-todolist-create--cmacro)
#@135 Constructor for objects of type `libbcel-todolist'.

(fn &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT TODOS-URL)
(defalias 'libbcel-todolist-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@	\211\203o \211@\314>\203W \211AA\262\202D \315>A@\203f \316\262\202D \317\320@\"\210\202D \210\321\322\n\n\n\n\n\n\n\n\n&\n\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :todos-url (:id :name :url :app-url :alist :comments-count :comments-url :parent :todos-url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :todos-url)" record libbcel-todolist] 21 (#$ . 84947)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put libbcel-todolist-create side-effect-free t cl-struct-define libbcel-todolist nil libbcel-entity record ((cl-tag-slot) (id nil :read-only t) (name nil :read-only t) (url nil :read-only t) (app-url nil :read-only t :alist-key-name app_url) (alist nil :read-only t) (comments-count 0 :read-only t :alist-key-name comments_count) (comments-url 0 :read-only t :alist-key-name comments_url) (parent nil :read-only t) (todos-url nil :read-only t :alist-key-name todos_url)) cl-struct-libbcel-todolist-tags] 11)
#@71 compiler-macro for inlining `libbcel-todo-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-p (and (memq (type-of cl-x) cl-struct-libbcel-todo-tags) t)) nil] 9 (#$ . 86406)])
(put 'libbcel-todo-p 'compiler-macro 'libbcel-todo-p--cmacro)
#@13 

(fn CL-X)
(defalias 'libbcel-todo-p #[257 "\301!>\205	 \302\207" [cl-struct-libbcel-todo-tags type-of t] 3 (#$ . 86753)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libbcel-todo-p side-effect-free error-free put libbcel-todo cl-deftype-satisfies] 5)
#@72 compiler-macro for inlining `libbcel-todo-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-id (progn (or (libbcel-todo-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todo cl-x))) (aref cl-x 1))) nil] 9 (#$ . 87036)])
(put 'libbcel-todo-id 'compiler-macro 'libbcel-todo-id--cmacro)
#@60 Access slot "id" of `libbcel-todo' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todo-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todo-tags type-of signal wrong-type-argument libbcel-todo 1] 5 (#$ . 87435)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todo-id side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todo-id] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@74 compiler-macro for inlining `libbcel-todo-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-name (progn (or (libbcel-todo-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todo cl-x))) (aref cl-x 2))) nil] 9 (#$ . 87902)])
(put 'libbcel-todo-name 'compiler-macro 'libbcel-todo-name--cmacro)
#@62 Access slot "name" of `libbcel-todo' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todo-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todo-tags type-of signal wrong-type-argument libbcel-todo 2] 5 (#$ . 88311)])
(byte-code "\300\301\302\303#\300\207" [function-put libbcel-todo-name side-effect-free t] 4)
#@73 compiler-macro for inlining `libbcel-todo-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-url (progn (or (libbcel-todo-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todo cl-x))) (aref cl-x 3))) nil] 9 (#$ . 88654)])
(put 'libbcel-todo-url 'compiler-macro 'libbcel-todo-url--cmacro)
#@61 Access slot "url" of `libbcel-todo' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todo-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todo-tags type-of signal wrong-type-argument libbcel-todo 3] 5 (#$ . 89058)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todo-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todo-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `libbcel-todo-app-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-app-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-app-url (progn (or (libbcel-todo-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todo cl-x))) (aref cl-x 4))) nil] 9 (#$ . 89529)])
(put 'libbcel-todo-app-url 'compiler-macro 'libbcel-todo-app-url--cmacro)
#@65 Access slot "app-url" of `libbcel-todo' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todo-app-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todo-tags type-of signal wrong-type-argument libbcel-todo 4] 5 (#$ . 89953)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todo-app-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todo-app-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@75 compiler-macro for inlining `libbcel-todo-alist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-alist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-alist (progn (or (libbcel-todo-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todo cl-x))) (aref cl-x 5))) nil] 9 (#$ . 90440)])
(put 'libbcel-todo-alist 'compiler-macro 'libbcel-todo-alist--cmacro)
#@63 Access slot "alist" of `libbcel-todo' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todo-alist #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todo-tags type-of signal wrong-type-argument libbcel-todo 5] 5 (#$ . 90854)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todo-alist side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todo-alist] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@84 compiler-macro for inlining `libbcel-todo-comments-count'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-comments-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-comments-count (progn (or (libbcel-todo-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todo cl-x))) (aref cl-x 6))) nil] 9 (#$ . 91333)])
(put 'libbcel-todo-comments-count 'compiler-macro 'libbcel-todo-comments-count--cmacro)
#@72 Access slot "comments-count" of `libbcel-todo' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todo-comments-count #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todo-tags type-of signal wrong-type-argument libbcel-todo 6] 5 (#$ . 91792)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todo-comments-count side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todo-comments-count] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@82 compiler-macro for inlining `libbcel-todo-comments-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-comments-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-comments-url (progn (or (libbcel-todo-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todo cl-x))) (aref cl-x 7))) nil] 9 (#$ . 92307)])
(put 'libbcel-todo-comments-url 'compiler-macro 'libbcel-todo-comments-url--cmacro)
#@70 Access slot "comments-url" of `libbcel-todo' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todo-comments-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todo-tags type-of signal wrong-type-argument libbcel-todo 7] 5 (#$ . 92756)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todo-comments-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todo-comments-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@76 compiler-macro for inlining `libbcel-todo-parent'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-parent (progn (or (libbcel-todo-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todo cl-x))) (aref cl-x 8))) nil] 9 (#$ . 93263)])
(put 'libbcel-todo-parent 'compiler-macro 'libbcel-todo-parent--cmacro)
#@64 Access slot "parent" of `libbcel-todo' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todo-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todo-tags type-of signal wrong-type-argument libbcel-todo 8] 5 (#$ . 93682)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todo-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todo-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@81 compiler-macro for inlining `libbcel-todo-description'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-description--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-description (progn (or (libbcel-todo-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todo cl-x))) (aref cl-x 9))) nil] 9 (#$ . 94165)])
(put 'libbcel-todo-description 'compiler-macro 'libbcel-todo-description--cmacro)
#@69 Access slot "description" of `libbcel-todo' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todo-description #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todo-tags type-of signal wrong-type-argument libbcel-todo 9] 5 (#$ . 94609)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todo-description side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todo-description] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@79 compiler-macro for inlining `libbcel-todo-completed'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-completed--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-completed (progn (or (libbcel-todo-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todo cl-x))) (aref cl-x 10))) nil] 9 (#$ . 95112)])
(put 'libbcel-todo-completed 'compiler-macro 'libbcel-todo-completed--cmacro)
#@67 Access slot "completed" of `libbcel-todo' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todo-completed #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todo-tags type-of signal wrong-type-argument libbcel-todo 10] 5 (#$ . 95547)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-todo-completed side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todo-completed] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@84 compiler-macro for inlining `libbcel-todo-completion-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-todo-completion-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-todo-completion-url (progn (or (libbcel-todo-p cl-x) (signal 'wrong-type-argument (list 'libbcel-todo cl-x))) (aref cl-x 11))) nil] 9 (#$ . 96043)])
(put 'libbcel-todo-completion-url 'compiler-macro 'libbcel-todo-completion-url--cmacro)
#@72 Access slot "completion-url" of `libbcel-todo' struct CL-X.

(fn CL-X)
(defalias 'libbcel-todo-completion-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-todo-tags type-of signal wrong-type-argument libbcel-todo 11] 5 (#$ . 96503)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put libbcel-todo-completion-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-todo-completion-url] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-libbcel-todo copy-sequence] 5)
#@180 compiler-macro for inlining `libbcel-todo-create'.

(fn CL-WHOLE &cl-quote &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT DESCRIPTION COMPLETED COMPLETION-URL)
(defalias 'libbcel-todo-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\300\315\"A@\211\203} \211@\316>\203e \211AA\262\202R \317>A@\203t \320\262\202R \321\322@\"\210\202R \210\323\324\325\320\320&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :description :completed :completion-url (:id :name :url :app-url :alist :comments-count :comments-url :parent :description :completed :completion-url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :description :completed :completion-url)" cl--defsubst-expand (id name url app-url alist comments-count comments-url parent description completed completion-url) (cl-block libbcel-todo-create (record 'libbcel-todo id name url app-url alist comments-count comments-url parent description completed completion-url))] 30 (#$ . 97071)])
(put 'libbcel-todo-create 'compiler-macro 'libbcel-todo-create--cmacro)
#@158 Constructor for objects of type `libbcel-todo'.

(fn &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT DESCRIPTION COMPLETED COMPLETION-URL)
(defalias 'libbcel-todo-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\300\315\"A@\211\203} \211@\316>\203e \211AA\262\202R \317>A@\203t \320\262\202R \321\322@\"\210\202R \210\323\324\f\f\f\f\f\f\f\f\f\f\f&\f\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :description :completed :completion-url (:id :name :url :app-url :alist :comments-count :comments-url :parent :description :completed :completion-url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :description :completed :completion-url)" record libbcel-todo] 25 (#$ . 98429)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put libbcel-todo-create side-effect-free t cl-struct-define libbcel-todo nil libbcel-entity record ((cl-tag-slot) (id nil :read-only t) (name nil :alist-key-name title) (url nil :read-only t) (app-url nil :read-only t :alist-key-name app_url) (alist nil :read-only t) (comments-count 0 :read-only t :alist-key-name comments_count) (comments-url 0 :read-only t :alist-key-name comments_url) (parent nil :read-only t) (description nil :read-only t) (completed nil :read-only t :alist-transformer (lambda (data) (not (eq data :json-false)))) (completion-url nil :read-only t :alist-key-name completion_url)) cl-struct-libbcel-todo-tags] 11)
#@74 compiler-macro for inlining `libbcel-comment-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-p (and (memq (type-of cl-x) cl-struct-libbcel-comment-tags) t)) nil] 9 (#$ . 100155)])
(put 'libbcel-comment-p 'compiler-macro 'libbcel-comment-p--cmacro)
#@13 

(fn CL-X)
(defalias 'libbcel-comment-p #[257 "\301!>\205	 \302\207" [cl-struct-libbcel-comment-tags type-of t] 3 (#$ . 100521)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libbcel-comment-p side-effect-free error-free put libbcel-comment cl-deftype-satisfies] 5)
#@75 compiler-macro for inlining `libbcel-comment-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-id (progn (or (libbcel-comment-p cl-x) (signal 'wrong-type-argument (list 'libbcel-comment cl-x))) (aref cl-x 1))) nil] 9 (#$ . 100817)])
(put 'libbcel-comment-id 'compiler-macro 'libbcel-comment-id--cmacro)
#@63 Access slot "id" of `libbcel-comment' struct CL-X.

(fn CL-X)
(defalias 'libbcel-comment-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-comment-tags type-of signal wrong-type-argument libbcel-comment 1] 5 (#$ . 101238)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-comment-id side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-comment-id] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `libbcel-comment-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-name (progn (or (libbcel-comment-p cl-x) (signal 'wrong-type-argument (list 'libbcel-comment cl-x))) (aref cl-x 2))) nil] 9 (#$ . 101724)])
(put 'libbcel-comment-name 'compiler-macro 'libbcel-comment-name--cmacro)
#@65 Access slot "name" of `libbcel-comment' struct CL-X.

(fn CL-X)
(defalias 'libbcel-comment-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-comment-tags type-of signal wrong-type-argument libbcel-comment 2] 5 (#$ . 102155)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-comment-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-comment-name] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@76 compiler-macro for inlining `libbcel-comment-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-url (progn (or (libbcel-comment-p cl-x) (signal 'wrong-type-argument (list 'libbcel-comment cl-x))) (aref cl-x 3))) nil] 9 (#$ . 102649)])
(put 'libbcel-comment-url 'compiler-macro 'libbcel-comment-url--cmacro)
#@64 Access slot "url" of `libbcel-comment' struct CL-X.

(fn CL-X)
(defalias 'libbcel-comment-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-comment-tags type-of signal wrong-type-argument libbcel-comment 3] 5 (#$ . 103075)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-comment-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-comment-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@80 compiler-macro for inlining `libbcel-comment-app-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-app-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-app-url (progn (or (libbcel-comment-p cl-x) (signal 'wrong-type-argument (list 'libbcel-comment cl-x))) (aref cl-x 4))) nil] 9 (#$ . 103565)])
(put 'libbcel-comment-app-url 'compiler-macro 'libbcel-comment-app-url--cmacro)
#@68 Access slot "app-url" of `libbcel-comment' struct CL-X.

(fn CL-X)
(defalias 'libbcel-comment-app-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-comment-tags type-of signal wrong-type-argument libbcel-comment 4] 5 (#$ . 104011)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-comment-app-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-comment-app-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@78 compiler-macro for inlining `libbcel-comment-alist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-alist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-alist (progn (or (libbcel-comment-p cl-x) (signal 'wrong-type-argument (list 'libbcel-comment cl-x))) (aref cl-x 5))) nil] 9 (#$ . 104517)])
(put 'libbcel-comment-alist 'compiler-macro 'libbcel-comment-alist--cmacro)
#@66 Access slot "alist" of `libbcel-comment' struct CL-X.

(fn CL-X)
(defalias 'libbcel-comment-alist #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-comment-tags type-of signal wrong-type-argument libbcel-comment 5] 5 (#$ . 104953)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-comment-alist side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-comment-alist] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@87 compiler-macro for inlining `libbcel-comment-comments-count'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-comments-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-comments-count (progn (or (libbcel-comment-p cl-x) (signal 'wrong-type-argument (list 'libbcel-comment cl-x))) (aref cl-x 6))) nil] 9 (#$ . 105451)])
(put 'libbcel-comment-comments-count 'compiler-macro 'libbcel-comment-comments-count--cmacro)
#@75 Access slot "comments-count" of `libbcel-comment' struct CL-X.

(fn CL-X)
(defalias 'libbcel-comment-comments-count #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-comment-tags type-of signal wrong-type-argument libbcel-comment 6] 5 (#$ . 105932)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-comment-comments-count side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-comment-comments-count] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@85 compiler-macro for inlining `libbcel-comment-comments-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-comments-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-comments-url (progn (or (libbcel-comment-p cl-x) (signal 'wrong-type-argument (list 'libbcel-comment cl-x))) (aref cl-x 7))) nil] 9 (#$ . 106466)])
(put 'libbcel-comment-comments-url 'compiler-macro 'libbcel-comment-comments-url--cmacro)
#@73 Access slot "comments-url" of `libbcel-comment' struct CL-X.

(fn CL-X)
(defalias 'libbcel-comment-comments-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-comment-tags type-of signal wrong-type-argument libbcel-comment 7] 5 (#$ . 106937)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-comment-comments-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-comment-comments-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@79 compiler-macro for inlining `libbcel-comment-parent'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-parent (progn (or (libbcel-comment-p cl-x) (signal 'wrong-type-argument (list 'libbcel-comment cl-x))) (aref cl-x 8))) nil] 9 (#$ . 107463)])
(put 'libbcel-comment-parent 'compiler-macro 'libbcel-comment-parent--cmacro)
#@67 Access slot "parent" of `libbcel-comment' struct CL-X.

(fn CL-X)
(defalias 'libbcel-comment-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-comment-tags type-of signal wrong-type-argument libbcel-comment 8] 5 (#$ . 107904)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-comment-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-comment-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@80 compiler-macro for inlining `libbcel-comment-content'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-content--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-content (progn (or (libbcel-comment-p cl-x) (signal 'wrong-type-argument (list 'libbcel-comment cl-x))) (aref cl-x 9))) nil] 9 (#$ . 108406)])
(put 'libbcel-comment-content 'compiler-macro 'libbcel-comment-content--cmacro)
#@68 Access slot "content" of `libbcel-comment' struct CL-X.

(fn CL-X)
(defalias 'libbcel-comment-content #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-comment-tags type-of signal wrong-type-argument libbcel-comment 9] 5 (#$ . 108852)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-comment-content side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-comment-content] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@83 compiler-macro for inlining `libbcel-comment-created-at'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-created-at--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-created-at (progn (or (libbcel-comment-p cl-x) (signal 'wrong-type-argument (list 'libbcel-comment cl-x))) (aref cl-x 10))) nil] 9 (#$ . 109358)])
(put 'libbcel-comment-created-at 'compiler-macro 'libbcel-comment-created-at--cmacro)
#@71 Access slot "created-at" of `libbcel-comment' struct CL-X.

(fn CL-X)
(defalias 'libbcel-comment-created-at #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-comment-tags type-of signal wrong-type-argument libbcel-comment 10] 5 (#$ . 109820)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-comment-created-at side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-comment-created-at] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@80 compiler-macro for inlining `libbcel-comment-creator'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-comment-creator--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-comment-creator (progn (or (libbcel-comment-p cl-x) (signal 'wrong-type-argument (list 'libbcel-comment cl-x))) (aref cl-x 11))) nil] 9 (#$ . 110339)])
(put 'libbcel-comment-creator 'compiler-macro 'libbcel-comment-creator--cmacro)
#@68 Access slot "creator" of `libbcel-comment' struct CL-X.

(fn CL-X)
(defalias 'libbcel-comment-creator #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-comment-tags type-of signal wrong-type-argument libbcel-comment 11] 5 (#$ . 110786)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put libbcel-comment-creator side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-comment-creator] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-libbcel-comment copy-sequence] 5)
#@173 compiler-macro for inlining `libbcel-comment-create'.

(fn CL-WHOLE &cl-quote &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT CONTENT CREATED-AT CREATOR)
(defalias 'libbcel-comment-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\300\315\"A@\211\203} \211@\316>\203e \211AA\262\202R \317>A@\203t \320\262\202R \321\322@\"\210\202R \210\323\324\325\320\320&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :content :created-at :creator (:id :name :url :app-url :alist :comments-count :comments-url :parent :content :created-at :creator :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :content :created-at :creator)" cl--defsubst-expand (id name url app-url alist comments-count comments-url parent content created-at creator) (cl-block libbcel-comment-create (record 'libbcel-comment id name url app-url alist comments-count comments-url parent content created-at creator))] 30 (#$ . 111348)])
(put 'libbcel-comment-create 'compiler-macro 'libbcel-comment-create--cmacro)
#@151 Constructor for objects of type `libbcel-comment'.

(fn &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT CONTENT CREATED-AT CREATOR)
(defalias 'libbcel-comment-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\300\315\"A@\211\203} \211@\316>\203e \211AA\262\202R \317>A@\203t \320\262\202R \321\322@\"\210\202R \210\323\324\f\f\f\f\f\f\f\f\f\f\f&\f\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent :content :created-at :creator (:id :name :url :app-url :alist :comments-count :comments-url :parent :content :created-at :creator :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent :content :created-at :creator)" record libbcel-comment] 25 (#$ . 112665)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put libbcel-comment-create side-effect-free t cl-struct-define libbcel-comment nil libbcel-entity record ((cl-tag-slot) (id nil :read-only t) (name nil :read-only t) (url nil :read-only t) (app-url nil :read-only t :alist-key-name app_url) (alist nil :read-only t) (comments-count 0 :read-only t :alist-key-name comments_count) (comments-url 0 :read-only t :alist-key-name comments_url) (parent nil :read-only t) (content nil :read-only t) (created-at nil :read-only t :alist-key-name created_at) (creator nil :read-only t :alist-transformer (lambda (data) (libbcel-structs-create-instance-from-data data)))) cl-struct-libbcel-comment-tags] 11)
#@73 compiler-macro for inlining `libbcel-person-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-person-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-person-p (and (memq (type-of cl-x) cl-struct-libbcel-person-tags) t)) nil] 9 (#$ . 114368)])
(put 'libbcel-person-p 'compiler-macro 'libbcel-person-p--cmacro)
#@13 

(fn CL-X)
(defalias 'libbcel-person-p #[257 "\301!>\205	 \302\207" [cl-struct-libbcel-person-tags type-of t] 3 (#$ . 114728)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libbcel-person-p side-effect-free error-free put libbcel-person cl-deftype-satisfies] 5)
#@74 compiler-macro for inlining `libbcel-person-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-person-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-person-id (progn (or (libbcel-person-p cl-x) (signal 'wrong-type-argument (list 'libbcel-person cl-x))) (aref cl-x 1))) nil] 9 (#$ . 115020)])
(put 'libbcel-person-id 'compiler-macro 'libbcel-person-id--cmacro)
#@62 Access slot "id" of `libbcel-person' struct CL-X.

(fn CL-X)
(defalias 'libbcel-person-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-person-tags type-of signal wrong-type-argument libbcel-person 1] 5 (#$ . 115434)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-person-id side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-person-id] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@76 compiler-macro for inlining `libbcel-person-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-person-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-person-name (progn (or (libbcel-person-p cl-x) (signal 'wrong-type-argument (list 'libbcel-person cl-x))) (aref cl-x 2))) nil] 9 (#$ . 115914)])
(put 'libbcel-person-name 'compiler-macro 'libbcel-person-name--cmacro)
#@64 Access slot "name" of `libbcel-person' struct CL-X.

(fn CL-X)
(defalias 'libbcel-person-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-person-tags type-of signal wrong-type-argument libbcel-person 2] 5 (#$ . 116338)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-person-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-person-name] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@75 compiler-macro for inlining `libbcel-person-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-person-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-person-url (progn (or (libbcel-person-p cl-x) (signal 'wrong-type-argument (list 'libbcel-person cl-x))) (aref cl-x 3))) nil] 9 (#$ . 116826)])
(put 'libbcel-person-url 'compiler-macro 'libbcel-person-url--cmacro)
#@63 Access slot "url" of `libbcel-person' struct CL-X.

(fn CL-X)
(defalias 'libbcel-person-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-person-tags type-of signal wrong-type-argument libbcel-person 3] 5 (#$ . 117245)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-person-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-person-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@79 compiler-macro for inlining `libbcel-person-app-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-person-app-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-person-app-url (progn (or (libbcel-person-p cl-x) (signal 'wrong-type-argument (list 'libbcel-person cl-x))) (aref cl-x 4))) nil] 9 (#$ . 117729)])
(put 'libbcel-person-app-url 'compiler-macro 'libbcel-person-app-url--cmacro)
#@67 Access slot "app-url" of `libbcel-person' struct CL-X.

(fn CL-X)
(defalias 'libbcel-person-app-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-person-tags type-of signal wrong-type-argument libbcel-person 4] 5 (#$ . 118168)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-person-app-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-person-app-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `libbcel-person-alist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-person-alist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-person-alist (progn (or (libbcel-person-p cl-x) (signal 'wrong-type-argument (list 'libbcel-person cl-x))) (aref cl-x 5))) nil] 9 (#$ . 118668)])
(put 'libbcel-person-alist 'compiler-macro 'libbcel-person-alist--cmacro)
#@65 Access slot "alist" of `libbcel-person' struct CL-X.

(fn CL-X)
(defalias 'libbcel-person-alist #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-person-tags type-of signal wrong-type-argument libbcel-person 5] 5 (#$ . 119097)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-person-alist side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-person-alist] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@86 compiler-macro for inlining `libbcel-person-comments-count'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-person-comments-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-person-comments-count (progn (or (libbcel-person-p cl-x) (signal 'wrong-type-argument (list 'libbcel-person cl-x))) (aref cl-x 6))) nil] 9 (#$ . 119589)])
(put 'libbcel-person-comments-count 'compiler-macro 'libbcel-person-comments-count--cmacro)
#@74 Access slot "comments-count" of `libbcel-person' struct CL-X.

(fn CL-X)
(defalias 'libbcel-person-comments-count #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-person-tags type-of signal wrong-type-argument libbcel-person 6] 5 (#$ . 120063)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-person-comments-count side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-person-comments-count] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@84 compiler-macro for inlining `libbcel-person-comments-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-person-comments-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-person-comments-url (progn (or (libbcel-person-p cl-x) (signal 'wrong-type-argument (list 'libbcel-person cl-x))) (aref cl-x 7))) nil] 9 (#$ . 120591)])
(put 'libbcel-person-comments-url 'compiler-macro 'libbcel-person-comments-url--cmacro)
#@72 Access slot "comments-url" of `libbcel-person' struct CL-X.

(fn CL-X)
(defalias 'libbcel-person-comments-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-person-tags type-of signal wrong-type-argument libbcel-person 7] 5 (#$ . 121055)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libbcel-person-comments-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-person-comments-url] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@78 compiler-macro for inlining `libbcel-person-parent'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'libbcel-person-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libbcel-person-parent (progn (or (libbcel-person-p cl-x) (signal 'wrong-type-argument (list 'libbcel-person cl-x))) (aref cl-x 8))) nil] 9 (#$ . 121575)])
(put 'libbcel-person-parent 'compiler-macro 'libbcel-person-parent--cmacro)
#@66 Access slot "parent" of `libbcel-person' struct CL-X.

(fn CL-X)
(defalias 'libbcel-person-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-libbcel-person-tags type-of signal wrong-type-argument libbcel-person 8] 5 (#$ . 122009)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put libbcel-person-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libbcel-person-parent] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-libbcel-person copy-sequence] 5)
#@145 compiler-macro for inlining `libbcel-person-create'.

(fn CL-WHOLE &cl-quote &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT)
(defalias 'libbcel-person-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\211\203h \211@\313>\203P \211AA\262\202= \314\n>A@\203_ \315\262\202= \316\317@\"\210\202= \210\320\321\322\315\315&\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent (:id :name :url :app-url :alist :comments-count :comments-url :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent)" cl--defsubst-expand (id name url app-url alist comments-count comments-url parent) (cl-block libbcel-person-create (record 'libbcel-person id name url app-url alist comments-count comments-url parent))] 24 (#$ . 122559)])
(put 'libbcel-person-create 'compiler-macro 'libbcel-person-create--cmacro)
#@123 Constructor for objects of type `libbcel-person'.

(fn &key ID NAME URL APP-URL ALIST COMMENTS-COUNT COMMENTS-URL PARENT)
(defalias 'libbcel-person-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206' \307A@\300\310\"\2062 \311A@\300\312\"A@\211\203h \211@\313>\203P \211AA\262\202= \314\n>A@\203_ \315\262\202= \316\317@\"\210\202= \210\320\321								&	\207" [plist-member :id :name :url :app-url :alist :comments-count (nil 0) :comments-url (nil 0) :parent (:id :name :url :app-url :alist :comments-count :comments-url :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :name :url :app-url :alist :comments-count :comments-url :parent)" record libbcel-person] 19 (#$ . 123651)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\210\313\314\306\315\306\316%\207" [function-put libbcel-person-create side-effect-free t cl-struct-define libbcel-person nil libbcel-entity record ((cl-tag-slot) (id nil :read-only t) (name nil :read-only t) (url nil :read-only t) (app-url nil :read-only t :alist-key-name app_url) (alist nil :read-only t) (comments-count 0 :read-only t :alist-key-name comments_count) (comments-url 0 :read-only t :alist-key-name comments_url) (parent nil :read-only t)) cl-struct-libbcel-person-tags cl-generic-define-method libbcel-equal ((entity1 libbcel-entity) (entity2 libbcel-entity)) #[514 "\301!>\204 \302\303\304D\"\210\305H\301!>\204! \302\303\304D\"\210\305H\232\207" [cl-struct-libbcel-entity-tags type-of signal wrong-type-argument libbcel-entity 1] 7 "Return t iff ENTITY1 is the same entity as ENTITY2.\n\n(fn ENTITY1 ENTITY2)"]] 11)
#@304 Return a structure from ENTITY-DATA.
ENTITY-DATA is an alists.

If PARENT is provided, set the created entity's parent to
PARENT.  This can later be retrieved with `libbcel-entity-parent'.

The structure to instanciate is decided `libbcel-structs--infer-struct-type'.

(fn ENTITY-DATA &optional PARENT)
(defalias 'libbcel-structs-create-instance-from-data #[513 "\300!\211\205 \301\302\303\304\305#\306!A\"#\207" [libbcel-structs--infer-struct-type apply record mapcar make-closure #[257 "\302\303\"\206	 \211@\211\304\267\202 \300\202 \301\202 \305\300\"\302\306\"\206# \307\211!\207" [V0 V1 plist-get :alist-key-name #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (alist 15 parent 19)) map-elt :alist-transformer identity] 6 "\n\n(fn SLOT-INFO)"] cl-struct-slot-info] 11 (#$ . 125359)])
#@331 Return a list of structures from ENTITIES-DATA.
ENTITIES-DATA is a list of alists.

If PARENT is provided, set the created entity's parent to
PARENT.  This can later be retrieved with `libbcel-entity-parent'.

The structures to instanciate are decided by `libbcel-structs--infer-struct-type'.

(fn ENTITIES-DATA &optional PARENT)
(defalias 'libbcel-structs-create-instances-from-data #[513 "\300\301\302\303\304\"\"\"\207" [seq-remove null mapcar make-closure #[257 "\301\300\"\207" [V0 libbcel-structs-create-instance-from-data] 4 "\n\n(fn DATA)"]] 8 (#$ . 126209)])
#@87 Return a symbol of a structure type to instanciate for ENTITY-DATA.

(fn ENTITY-DATA)
(defalias 'libbcel-structs--infer-struct-type #[257 "\300\301\"\211\203! \211\302\267\202 \303\207\304\207\305\207\306\207\307\207\310\207\311\312\"\210\313\207\314\315\"\203* \305\207\314\316\"\2052 \317\207" [map-elt type #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("Message::Board" 14 "Todoset" 16 "Project" 18 "Todolist" 20 "Todo" 22 "Comment" 24)) libbcel-message-board libbcel-todoset libbcel-project libbcel-todolist libbcel-todo libbcel-comment message "libbcel-structs: I don't know what the type is for `%s'" nil map-contains-key dock personable_type libbcel-person] 5 (#$ . 126786)])
(provide 'libbcel-structs)