;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. #@69 compiler-macro for inlining `url-future-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'url-future-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-future-p (and (memq (type-of cl-x) cl-struct-url-future-tags) t)) nil] 9 (#$ . 83)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-future-p compiler-macro url-future-p--cmacro] 4)#@13 (fn CL-X) (defalias 'url-future-p #[257 "\301!>\205 \302\207" [cl-struct-url-future-tags type-of t] 3 (#$ . 468)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put url-future-p side-effect-free error-free pure t define-symbol-prop url-future cl-deftype-satisfies] 6)#@76 compiler-macro for inlining `url-future-callback'. (fn CL-WHOLE-ARG CL-X) (defalias 'url-future-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-future-callback (progn (or (url-future-p cl-x) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 1))) nil] 9 (#$ . 783)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-future-callback compiler-macro url-future-callback--cmacro] 4)#@64 Access slot "callback" of `url-future' struct CL-X. (fn CL-X) (defalias 'url-future-callback #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 1] 5 (#$ . 1249)]) (byte-code "\300\301\302\303#\300\207" [function-put url-future-callback side-effect-free t] 4)#@77 compiler-macro for inlining `url-future-errorback'. (fn CL-WHOLE-ARG CL-X) (defalias 'url-future-errorback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-future-errorback (progn (or (url-future-p cl-x) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 2))) nil] 9 (#$ . 1592)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-future-errorback compiler-macro url-future-errorback--cmacro] 4)#@65 Access slot "errorback" of `url-future' struct CL-X. (fn CL-X) (defalias 'url-future-errorback #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 2] 5 (#$ . 2064)]) (byte-code "\300\301\302\303#\300\207" [function-put url-future-errorback side-effect-free t] 4)#@74 compiler-macro for inlining `url-future-status'. (fn CL-WHOLE-ARG CL-X) (defalias 'url-future-status--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-future-status (progn (or (url-future-p cl-x) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2410)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-future-status compiler-macro url-future-status--cmacro] 4)#@62 Access slot "status" of `url-future' struct CL-X. (fn CL-X) (defalias 'url-future-status #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3] 5 (#$ . 2867)]) (byte-code "\300\301\302\303#\300\207" [function-put url-future-status side-effect-free t] 4)#@73 compiler-macro for inlining `url-future-value'. (fn CL-WHOLE-ARG CL-X) (defalias 'url-future-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-future-value (progn (or (url-future-p cl-x) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 4))) nil] 9 (#$ . 3204)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-future-value compiler-macro url-future-value--cmacro] 4)#@61 Access slot "value" of `url-future' struct CL-X. (fn CL-X) (defalias 'url-future-value #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 4] 5 (#$ . 3656)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put url-future-value side-effect-free t defalias copy-url-future copy-sequence] 4)#@110 compiler-macro for inlining `make-url-future'. (fn CL-WHOLE &cl-quote &key CALLBACK ERRORBACK STATUS VALUE) (defalias 'make-url-future--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203O\211@\305>\2037\211A\204/\306\307@\"\210\211AA\262\202\310>A@\203F\311\262\202\306\312@\"\210\202\210\313\314\315\311 \311    & \207" [plist-member :callback :errorback :status :value (:callback :errorback :status :value :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:callback :errorback :status :value)" cl--defsubst-expand (callback errorback status value) (cl-block make-url-future (record 'url-future callback errorback status value))] 16 (#$ . 4040)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop make-url-future compiler-macro make-url-future--cmacro] 4)#@90 Constructor for objects of type `url-future'. (fn &key CALLBACK ERRORBACK STATUS VALUE) (defalias 'make-url-future #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203O\211@\305>\2037\211A\204/\306\307@\"\210\211AA\262\202\310>A@\203F\311\262\202\306\312@\"\210\202\210\313\314%\207" [plist-member :callback :errorback :status :value (:callback :errorback :status :value :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:callback :errorback :status :value)" record url-future] 11 (#$ . 4914)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-url-future side-effect-free t cl-struct-define url-future nil cl-structure-object record ((cl-tag-slot) (callback) (errorback) (status) (value)) cl-struct-url-future-tags] 11)#@19 (fn URL-FUTURE) (defalias 'url-future-done-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3] 5 (#$ . 5779)]) (byte-code "\300\301\302\303#\300\207" [function-put url-future-done-p compiler-macro url-future-done-p--inliner] 4)#@32 (fn INLINE--FORM URL-FUTURE) (defalias 'url-future-done-p--inliner #[514 "\3002\301D0\207" [inline--just-use url-future-status] 4 (#$ . 6096)])#@19 (fn URL-FUTURE) (defalias 'url-future-completed-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\306=\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 t] 5 (#$ . 6250)]) (byte-code "\300\301\302\303#\300\207" [function-put url-future-completed-p compiler-macro url-future-completed-p--inliner] 4)#@32 (fn INLINE--FORM URL-FUTURE) (defalias 'url-future-completed-p--inliner #[514 "\3002 \301\302D\303E0\207" [inline--just-use eq url-future-status t] 5 (#$ . 6589)])#@19 (fn URL-FUTURE) (defalias 'url-future-errored-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\306=\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 error] 5 (#$ . 6762)]) (byte-code "\300\301\302\303#\300\207" [function-put url-future-errored-p compiler-macro url-future-errored-p--inliner] 4)#@32 (fn INLINE--FORM URL-FUTURE) (defalias 'url-future-errored-p--inliner #[514 "\3002 \301\302D\303\304DE0\207" [inline--just-use eq url-future-status quote error] 6 (#$ . 7099)])#@19 (fn URL-FUTURE) (defalias 'url-future-cancelled-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\306=\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 cancel] 5 (#$ . 7285)]) (byte-code "\300\301\302\303#\300\207" [function-put url-future-cancelled-p compiler-macro url-future-cancelled-p--inliner] 4)#@32 (fn INLINE--FORM URL-FUTURE) (defalias 'url-future-cancelled-p--inliner #[514 "\3002 \301\302D\303\304DE0\207" [inline--just-use eq url-future-status quote cancel] 6 (#$ . 7629)])#@36 (fn URL-FUTURE &optional STATUS) (defalias 'url-future-finish #[513 "\301!>\204\302\303\304D\"\210\305H\203\302\306\307\"\207\301!>\204)\302\303\304D\"\210\305\2060\310I\210\301!>\204A\302\303\304D\"\210\305H\310=\203b\301!>\204X\302\303\304D\"\210\311H\206_\312!\210\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 error url-future-already-done t 1 ignore] 6 (#$ . 7818)])#@29 (fn URL-FUTURE ERRORCONS) (defalias 'url-future-errored #[514 "\301!>\204\302\303\304D\"\210\305H\203\302\306\307\"\207\301!>\204)\302\303\304D\"\210\305\306I\210\301!>\204=\302\303\304D\"\210\310I\210\301!>\204Q\302\303\304D\"\210\311H\206X\312\"\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 error url-future-already-done 4 2 ignore] 6 (#$ . 8260)])#@19 (fn URL-FUTURE) (defalias 'url-future-call #[257 "\301!>\204\302\303\304D\"\210\211\305H\203\302\306\307\"\207\301!>\204)\302\303\304D\"\210\211\310H\311!\203V\3121P\301!>\204E\302\303\304D\"\210\310 I0\266\202W\313\"\266\210\301!>\204f\302\303\304D\"\210\211\305H\306=\203o\207\314!\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 error url-future-already-done 4 functionp (error) url-future-errored url-future-finish] 6 (#$ . 8680)])#@19 (fn URL-FUTURE) (defalias 'url-future-cancel #[257 "\301!>\204\302\303\304D\"\210\211\305H\203\302\306\307\"\207\310\311\"\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 error url-future-already-done url-future-finish cancel] 5 (#$ . 9186)]) (provide 'url-future)